Private Sub CommandButton1_Click() 'bouton "Ok"
With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1"
'le premier élément d'une Combobox a pour ListIndex : 0, le second : 1, etc. Comme le premier élément du tableau commence à la ligne 2 on a le rapport : ListIndex + 2
.Cells(Me.ComboBox1.ListIndex + 2, 12).Value = Me.TextBox1.Value 'place le contenu de la TexBox1 dans la cellule colonne 12 (=L)
End With 'fin de la prise en compte de l'onglet "Feuil1"
Unload Me 'vide et ferme l'UserForm
End Sub