VBA Range("Tableau1[#Headers]").Cells(, i)

Sub Macro2()
   For i = 2 To 4 Step 1
    'Range("Tableau1[#Headers]").Columns(2 & "," & i).Select
    Range("Tableau1[#Headers]").Cells(, i).Select
    Selection.Font.Italic = True
    Next i
End Sub

Sub CréerLabel()
'Alimentation des Labels du USF ( F_BDD)
Dim Ctrl As Control
Dim USF As UserForm
Dim i As Integer
Dim nbcol
Set Plage = Range("Tableau1[#Headers]")

nbcol = Range("Tableau1").Columns.Count
Set USF = F_BDD.MultiPage1.Pages(1).Frame2
    For Each Ctrl In USF.Controls
    If TypeOf Ctrl Is MSForms.Label Then
          For i = 1 To USF.Controls.Count
            Ctrl.Caption = Plage.Columns(i + 1).Value
    '.Caption = Plage.Columns(i).Value
            Next i
    End If
    
    'MsgBox Ctrl.Name & " " & TypeName(Ctrl)
    Next


End Sub