Option Explicit
Dim C As Range
Private Sub ComboBox1_Change()
Set C = Sheets("Base_donne").Columns("E").Find(What:=ComboBox1)
MsgBox "Le trajet " & ComboBox1 & Chr(10) & Chr(10) & "National est " & C.Offset(, 1) & Chr(10) & "Etranger est " & C.Offset(, 2)
With Sheets("Facture")
.Range("C5") = C.Offset(, 1)
.Range("C6") = C.Offset(, 2)
End With
Unload Me
End Sub