Référence en tête de colonne

Range("Tableau1[Colonne1]").Select

Range("Tableau1[[#All],[Colonne3]]").Select

Range("Tableau1[Nom]").Select

TextBox1 = Range("Tableau1[Nom]")(Me.ComboBox1.ListIndex + 3)
Range("Tableau1[Prénom]")(derligne) = TextBox2
Range("Tableau1[Nom]")(Me.ComboBox1.ListIndex + 3) = TextBox2

Private Sub Ini()
Dim CTRL As Control 'Variable pour la collection des controls
    Dim Cel As Range
'On Vide tous les Controls
For Each CTRL In Me.Controls
If TypeOf CTRL Is MSForms.TextBox Or TypeOf CTRL Is MSForms.ComboBox Then
CTRL = ""
End If
Next CTRL
For Each Cel In Range("Tableau3[NOM]") 'boucle sur toutes les cellules éditées de la colonne Nom
    With Me.ComboBox1 'prend en compte la ComboBox1
        .AddItem Cel.Value 'ajoute la valeur de la cellule cel à la colonne 0 de la ComboBox1
        .Column(1, .ListCount - 1) = Cel.Offset(0, 1).Value 'ajoute la valeur de la cellule de la colonne D à la colonne 1 de la ComboBox1
        'pour utiliser une autre colonne que la B, il suffit d'augmenter la valeur de Offset(0, x) qui correspond au décalage par rapport à A
    End With 'fin de la prise en compte de la ComboBox1
Next Cel 'prochaine cellule de boucle
End Sub

Private Sub ComboBox1_Click()
If Me.ComboBox1.ListIndex = -1 Then Exit Sub 'ON sort si pas de sélection
Dim I As Integer
For I = 1 To 21
Controls("TextBox" & I) = Range("Tableau3[#Headers]")(I).Offset(Me.ComboBox1.ListIndex + 1)
Next I
'If Range("C" & Me.ComboBox1.ListIndex + 3).Comment Is Nothing Then
'   TextBox22 = " "
'Else
'TextBox22 = Range("C" & Me.ComboBox1.ListIndex + 3).Comment.Text
'End If
 
'ici on initialise les Variable pour mémoriser le valeur précédente en cas de Modif
With Me
Nom = .ComboBox1
Prenom = .TextBox1
End With
End Sub