Sub explic()
'Déclaration de la variable Cellule comme une cellule (Range, emplacement sur la feuille)
Dim Cellule As Range
'Art est un texte
Dim Art As String
'Art est la valeur de la combobx4
Art = ComboBox4.Value
'on utilise la feuille Véhicule, plage A1:A242
With Worksheets("Véhicule").Range("A1:A242")
'On dit que la cellule est celle ou il y a la valeur de Art (find = trouve)
Set Cellule = .Find(Art, Lookat:=xlWhole)
'si la cellule n'est pas rien (donc si elle existe on a trouvé Art)
If Not Cellule Is Nothing Then
'on récupère l'adresse de la cellule (Par exemple $A$1)
firstAddress = Cellule.Address
'On fait (Début de boucle)
Do
'On met dans la cellule à coté la valeur de la combobox2
'Offset(Ligne, Colonne)
Cellule.Offset(0, 1).Value = ComboBox2.Value
'On met dans la cellule encore à coté la valeur de la combobox3
Cellule.Offset(0, 2).Value = ComboBox3.Value
'là tu sors de la sub trop tôt.
'La boucle ne paux pas continuer
Exit Sub
'Suite de la boucle (trouver la prochaine cellule qui à Art)
Set Cellule = .FindNext(Cellule)
'on boucle tant que Art est trouvé dans la plage A1:A242
'et que la cellule trouvée n'est pas la première
Loop While Not Cellule Is Nothing And Cellule.Address <> firstAddress
'Fin de la condition : If Not Cellule Is Nothing Then
End If
'Arret de l'utilisation de la feuille Véhicule
End With
End Sub