Passage d'une plage de cellule en parametre

Bonjour à toutes et à tous,

Je suis toujours sur mon fichier de congé, la deadline approche et un truc qui marchait ne marche plus.
En même temps, vu que ca tenait du miracle le fait que ca marche, ca devait arriver.

Bref, voici l'histoire:
le tableau ressemble a ca:
A B C D E
1 01/01 - 02/01 - 03/01 -04/01
2 Pierre ok ab ok ok
3 Paul ok ok ok ab
4 Jacques ok ok ok ab
5 Total 0 1 0 2

J'ai vachement simplifier le truc afin de ne pas vous embrouiller

En B5, C5, D5, E5, j'ai une formule pour compter le nbr d'absent, qui fait appel a une macro
B5 = CompteAbsent(B2;B4)
C5 = CompteAbsent(C2;C4)

C'est dans la macro que ca merde:

Public Function CompteAbsent(x As Range, y As Range)
For Each col In Range(x, y)
If col.Value = "ab" Then
Sum = Sum + 1
End if
Next
CompteAbsent = Sum
End Function

Au début, comme je disais, ca marchais, mais depuis que j'ai coder un peu partout autour, plus rien !

Après plusieurs recherche, je pense que je m'y prend mal.
Ca devrait plutot ressembler a un truc comme ca:

B5 = CompteAbsent(B2:B4)

et

Public Function CompteAbsent(x As Range)
For Each col In x
If col.Value = "ab" Then
Sum = Sum + 1
End if
Next
CompteAbsent = Sum
End Function

Mais ca, ca ne marche pas non plus, dans les deux cas, vba dit que col.Value sort du contexte et me jette

Je sollicite donc votre aide s'il vous plait (vous pouvez vous moquer de moi si vous voulez, je suis vraiment pas bon)

Merci d'avance.