With Sheets("Feuil1")
For k = 1 To 7 'à modifier selon le nombre de colonnes
Me.Controls("Label" & k) = .Cells(1, k)
Me.Controls("Label" & k).AutoSize = True ' Facultatif
Me.Controls("Label" & k).Top = Me.Controls("TextBox" & k).Top - 12 ' Facultatif
Me.Controls("Label" & k).Left = Me.Controls("TextBox" & k).Left + 1 ' Facultatif
Next k
End With