Sub Compte_Valeur()
Dim Balise1 As Date, Balise2 As Date, cell As Range, i As Long
Dim Ttl As Long
Balise1 = CDate(Range("B1"))
Balise2 = CDate(Range("B2"))
If Range("B1") = "" Or Range("B2") = "" Then
MsgBox "Saisir une date", vbInformation, "Erreur:"
Exit Sub
End If
If CDate(Range("B2")) < CDate(Range("B1")) Then
MsgBox "La date fin doit être supérieure à la date début", vbInformation, "Erreur date:"
Exit Sub
End If
For i = 5 To Range("A65536").End(xlUp).Row
For Each cell In Range("P4:AY4")
If cell >= Balise1 And cell <= Balise2 And cell.Offset(i - 4, 0) = 1 Then
Ttl = Ttl + 1
End If
Next
Range("AZ" & i) = Ttl
Ttl = 0
Next
End Sub