incorporer cellules dans label USF

Private Sub UserForm_Initialize()
'
Dim Tableau As String
Label1.Caption = ""
For i = 1 To 4
    Label1.Caption = Label1.Caption & Sheets("Feuil1").Range("A" & i)
    If i < 4 Then Label1.Caption = Label1.Caption & vbCrLf
Next i
End Sub

Range("A1:D4") = Tableau

Tableau= Range("A1") .value

Private Sub UserForm_Initialize()
  Dim Li As Byte, col As Byte
  Label1.Caption = ""
  For Li = 1 To 4
    For col = 1 To 4
      Label1.Caption = Label1.Caption & Sheets("Feuil1").Cells(Li, col) & " "
    Next col
    Label1.Caption = Label1.Caption & Chr(10)
  Next Li
End Sub

Private Sub UserForm_Initialize()
'
Dim i as integer, j as integer
Label1.Caption = ""
For i = 1 To 4
    for j = 1 to 4 
         Label1.Caption = Label1.Caption & Sheets("Feuil1").cells(i,j)
         if j < 4 then label.caption = label.caption & " - "
    next j 
    If i < 4 Then Label1.Caption = Label1.Caption & vbCrLf
Next i
End Sub