Option Compare Text 'la casse est ignorée
Function SommeFiches(t1$, ref1$, t2$, ref2$)
Application.Volatile
Dim w As Worksheet
For Each w In Worksheets
If w.Name Like "Fiche*" Then
If w.Range(ref1) = t1 And w.Range(ref2) = t2 Then SommeFiches = SommeFiches + 1
End If
Next
End Function