Liste de validation et Userform

Private Sub UserForm_Initialize()
Me.Caption = B
Me.ComboBox1.ColumnCount = 3 '<= ici
Ini
End Sub

Private Sub Ini()
Dim CTRL As Control 'Variable pour la collection des controls
Dim L As Integer    'Variable pour connaitre le numéro de derniere ligne
Dim i As Integer    'Variable pour connaitre incrémenter les Data
 
'On Vide tous les Controls
TextBox1.Value = ""
TextBox2.Value = ""
TextBox4.Value = ""
Me.ComboBox1.Clear 'On vide les précédentes données
Set Ws = ThisWorkbook.Sheets("Adhérents") 'On identifie l'objet pour la feuille de travail
L = Ws.Range("A65536").End(xlUp).Row + 1  'On identifie la dernière ligne en partant du bas
'Pour éviter les flash d'écran pour le select ci dessous
Application.ScreenUpdating = False
Ws.Select 'On sélectionne la feuille sinon bug si elle ne l'est pas
Ws.Range("A1:I" & L).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes 'Le Sort
For i = 2 To L             'Boucle départ 1 (Ligne 1 de la feuille, jusqu'à dernière
    With Me.ComboBox1          'Avec la ComboBox1
        .AddItem '<= ici
        .Column(0, .ListCount - 1) = Ws.Range("A" & i) '<= ici
        .Column(1, .ListCount - 1) = Ws.Range("B" & i) '<= ici
        .Column(2, .ListCount - 1) = Ws.Range("C" & i) '<= ici
    End With
Next i                     'Next pour poursuivre la boucle pour le i suivant
Application.ScreenUpdating = True
End Sub

Private Sub CmdSupprimer_Click()
Dim LI As Integer
Dim Response As Byte

' si  vide on sort
If ComboBox1 = "" Then MsgBox "Rien à retirer", vbCritical, B:  Exit Sub
'Ici un message demandant d'accepter la suppression en les listant
Response = MsgBox(ComboBox1 & " va être retiré de la liste", vbCritical + vbOKCancel, B & " : Suppression de " & Nom)
'Si Réponse OK on continue
If Response = 1 Then
    'ici avec la Feuille on va faire :
    Ws.Rows(Me.ComboBox1.ListIndex + 2).Delete Shift:=xlUp '<= ici
    'On envoie un message de confirmation
    MsgBox "Supprimé de la liste", vbInformation, B
    Ini 'On lance la réinitialisation du UserForm (Macro en haut du Module)
'Si Réponse Annulation on envoie un message et on a rien fait
Else: MsgBox "Opération annulée", vbInformation, B
End If
End Sub