Function NbVal2Crit(Cel1 As Range, Cel2 As Range)
Dim DerLig As Long, Lig As Long, Val1 As Variant, Val2 As Variant
If Cel1.Column = Cel2.Column Then
MsgBox "Les 2 valeurs à comparer ne peuvent pas être dans la même colonne !"
Exit Function
End If
DerLig = Cells(Rows.Count, Cel1.Column).End(xlUp).Row
NbVal2Crit = 0: Val1 = Cel1.Value: Val2 = Cel2.Value
For Lig = 1 To DerLig
If Cells(Lig, Cel1.Column) = Val1 And Cells(Lig, Cel2.Column) = Val2 Then
NbVal2Crit = NbVal2Crit + 1
End If
Next
End Function