Sub Recherche()
Dim Constructeur As String, Modele As String
Dim c As Range, Adr1 As String
Constructeur = Sheets("Accueil").Range("C5")
Modele = Sheets("Accueil").Range("C9")
If Trim(Constructeur) <> "" And Trim(Modele) <> "" Then
With Sheets("Données")
With .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
Set c = .Find(What:=Constructeur, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows)
If Not c Is Nothing Then
Adr1 = c.Address
Do
If c.Offset(, 2) = Modele Then
Sheets("Accueil").Range("A20:A24").Value = Application.Transpose(c.Offset(, 3).Resize(1, 5))
Exit Do
End If
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> Adr1
End If
End With
End With
End If
End Sub