Function Nb_barre_2(plage As Range, Critere1, Critere2, Critere3)
Dim Ligne As Range, T1 As Boolean, T2 As Boolean, T3 As Boolean, T4 As Boolean
For Each Ligne In plage.Rows
T1 = Ligne.Cells(1, 1) = Critere1
T2 = Ligne.Cells(1, 6) = Critere2
T3 = Ligne.Cells(1, 7) = Critere3
T4 = Ligne.Cells(1, 3).Font.Strikethrough = False
If T1 And T2 And T3 And T4 Then Nb_barre_2 = Nb_barre_2 + 1
Next
End Function