Public Function essai2(Critere1 As Range, Critere2 As Range)
With Worksheets("Feuil1")
Set PlageClient = .Range(.[B4], .[B100].End(xlUp))
Set PlageCategorie = .Range(.[C4], .[C100].End(xlUp))
End With
MsgBox 1
essai2 = Application.WorksheetFunction.Match(1, (PlageClient = Critere1.Value) * (PlageCategorie = Critere2.Value), 0)
'essai2 = Application.WorksheetFunction.Match(1, (PlageClient = """ &Critere1.Value & """) * (PlageCategorie = """ & Critere2.Value & """), 0)
'essai2 = Application.WorksheetFunction.Match(1,(" & PlageClient & "=""" & Critere1 & """)*(" & PlageCategorie & "=""" & Critere2 & """),0)
End Function