Bonjour
Je suis novice en vba mais voici une première piste
(en attendant que les experts ne passent par là)
il y a un bug mais ça peut peut-être vous élancer...
Private Sub ID_Change()
Dim Mk1 As Variant
Dim cellule As Range
Mk1 = ID.Value
With Sheets(2).Range("a:a")
Set cellule = .Find(Mk1)
combinaison = cellule.Offset(0, 3)
End With
End Sub