labels qui récupèrent les entetes des colonnes

Private Sub UserForm_Initialize()
Dim ctrl As Control, i&
i = 1
For Each ctrl In Me.Controls
    If TypeOf ctrl Is MSForms.Label Then
    ctrl.Object.Caption = Sheets(1).Cells(2, i)
    i = i + 1
    End If
Next ctrl
End Sub

Private Sub UserForm_Initialize()
For col = 1 To 24
    Me.Controls("label" & col).Caption = Sheets("Feuil1").Cells(2, col)
Next col
End Sub

Private Sub UserForm_Initialize()
 Dim i As Byte
 For i = 1 To 24: Me("label" & i) = Feuil1.Cells(2, i): Next i
End Sub