If Me.ComboBox1.ListIndex = -1 Then Exit Sub 'si combobox vide on quitte la macro
'on demande confirmation
If MsgBox("Confirmé la suppression de " & Me.ComboBox1.Value, vbOKCancel, "Suppression") = vbOK Then
'la ligne est égale au listindex du combobox +1
si la cellule correspondant à la ligne en colonne A n'est pas vide on supprime la ligne
If [tableau1].Item(Me.ComboBox1.ListIndex + 1, 1) <> "" Then [tableau1].Rows(Me.ComboBox1.ListIndex + 1).Delete
End If 'fin de la condition (suppression)
A+ François