Suppression d'une cellule via combobox

Bonjour

Je voudrais pouvoir supprimer un nom de la liste de la colonne A sur la feuille base de données avec l'userform Formulaire sans supprimer une cellule d'une autre colonne.

Je vous joins le fichier

Merci d'avance

Salut

pour le nom seulement

Private Sub CommandButton1_Click()
With Sheets("Base de données")
 .Range("A" & (ComboBox1.ListIndex) + 2).ClearContents
 '.Range("A" & (ComboBox1.ListIndex) + 2 & ":B" & (ComboBox1.ListIndex) + 2).ClearContents
End With
End Sub

pour le nom et le nombre

Private Sub CommandButton1_Click()
With Sheets("Base de données")
' .Range("A" & (ComboBox1.ListIndex) + 2).ClearContents 
 .Range("A" & (ComboBox1.ListIndex) + 2 & ":B" & (ComboBox1.ListIndex) + 2).ClearContents
End With
End Sub

bonjour,

Pour supprimer (et non "Effacer") c'est :

Private Sub CommandButton1_Click()
Sheets("Base de données").Range("A" & (ComboBox1.ListIndex) + 2).Delete Shift:=xlUp
Unload Me
End Sub

Nota : Habituellement il est couramment admis de séparer les données qui n'ont aucun rapport entre elles par une colonne vide dans la Sheets("Base de données").

A+

Merci Bcp

Ca marche nickel !!!!!