Sub compter1()
Dim Cel As Range, DerLig As Long
Dim n As Long
DerLig = Sheets("présence").Range("Z" & Rows.Count).End(xlUp).Row
For Each Cel In Sheets("présence").Range("Z1:Z" & DerLig)
If Cel.Value = Code.Label46 [COLOR="Red"]Or Code.Label47 [/COLOR]Then
n = n + 1 'compteur
End If
Next
Label41 = n
End Sub