Sub recherche()
Dim Client As Integer
Dim Contrat As Integer
Dim plageCriteres As Range
Set plageCriteres = Range("A1:E4")
Client = Sheets("Feuil1").Range("Client").Value
Contrat = Sheets("Feuil1").Range("Contrat").Value
For Each cell In plageCriteres
If cell.Value = Client And cell.Offset(0, 1).Value = Contrat Then
Range("I9") = cell.Offset(0, 2).Value
Range("I10") = cell.Offset(0, 3).Value
Range("I11") = cell.Offset(0, 4).Value
End If
Next
End Sub