Bonsoir,
Du genre :
Code à insérer dans un userform nommé userform1 et contenant un combobox nommé combobox1
Public Ligne As Long
Private Sub ComboBox1_Change()
'Annulation du précédent surlignage
Cells(Ligne, 2).Font.Underline = xlUnderlineStyleNone
If UserForm1.ComboBox1.ListIndex = -1 Then Exit Sub
'Affectation du numéro de la ligne dans le tableau
Ligne = UserForm1.ComboBox1.ListIndex + 6
'Surlignage de la cellule concernée
Cells(Ligne, 2).Font.Underline = xlUnderlineStyleSingle
End Sub
Private Sub UserForm_Initialize()
'Recherche de la dernière ligne du tableau
Ligne = Sheets("feuil1").Cells(65536, 2).End(xlUp).Row
'Affectation de la liste des clients au combobox
UserForm1.ComboBox1.RowSource = "=Feuil1!$B$6:$B$" & Ligne
End Sub
@+
Ronan