Private Sub ComboBox1_Change()
Dim Ligne As Long, derligne As Long
'
' Travailler sur Feuil1
With Sheets("feuil1")
'
' Dernière ligne occupée en remontant du bas de la feuille
derligne = .Cells(Rows.Count, 1).End(xlUp).Row
'
' boucle de la ligne 2 à la dernière ligne occupée
For Ligne = 2 To derligne
'
' si la colonne 1 correspond au choix du combobox alors
If .Cells(Ligne, 1).Value = CInt(Me.ComboBox1.Value) Then
Me.Label1.Caption = .Cells(Ligne, 2).Value
Me.Label2.Caption = .Cells(Ligne, 3).Value
Exit For
End If
Next Ligne
End With
End Sub