Vba array vers range dans boucle

Sub Bouton5_Clic() 
    Dim DernLigne As Long 
    DernLigne = Range("A" & Rows.Count).End(xlUp).Row 
    'traitementListes 
    RangeArray DernLigne 
    
End Sub 


Sub RangeArray(DrLgn As Long) 
    'Declaration du tableau taille dynamique et redimension du tableau 
    Dim TbloLibel() As Variant 
With Sheets("Dotation").Range("A2:E" & DrLgn) 
    ReDim TbloLibel(.Rows.Count, .Columns.Count) 
    'Affecte les valeurs au tableau 
    TbloLibel = .Value 
    'MsgBox UBound(TbloLibel) 

End With 

Dim x As Integer, y As Integer, i As Integer, ia As Integer 
Dim Onglet As Worksheet 
Dim PlageTravail As Range 
     
    Set Onglet = Worksheets("etiquette pt") 
    Onglet.Select 

'Remplir la case 'libellé' 
ia = 1 
  For x = 2 To 126 Step 4 
    For y = 2 To 48 Step 6 
        Set PlageTravail = Range("C" & x & ":C" & y) 
        'Alimente les éléments du tableau 
                Onglet.Cells(x, y) = retournLibelle(ia, TbloLibel) 
                ia = ia + 1 
                If ia > UBound(TbloLibel) Then 
                    Exit Sub 
                End If 
           Next y 
    Next x 


End Sub 

'Fonction qui retourne le libelle du tableau 
Function retournLibelle(indice As Integer, ByRef varTab() As Variant) As Variant 
        retournLibelle = varTab(indice, 2) 
End Function 

Option Explicit  
Dim TbloLibel() As Variant  

Sub Bouton5_Clic()  
 Dim Petite As Boolean, Grande As Boolean  
       
    'initialisations  
    Application.ScreenUpdating = False 'fige le défilement de l'écran  
    With Sheets("Dotation")  
          TbloLibel = .Range("A2:E" & Range("A" & Rows.Count).End(xlUp).Row).Value  
          Petite = .CheckBox1  
          Grande = .CheckBox2  
    End With  
      
    'rédaction des étiquettes  
    If Petite = True Then etiqueter Sheets("etiquette pt")  
     If Grande = True Then etiqueter Sheets("etiquette grd")  

     MsgBox "Etiquetage terminé"  
End Sub  

Sub etiqueter(onglet)  
Dim indice As Integer, Ligne As Byte, Col As Byte  
With onglet  
     .Cells.ClearContents  
     '    Remplir la case 'libellé'  
          indice = 1  
          For Ligne = 2 To 126 Step 4  
               For Col = 2 To 48 Step 6  
                    .Cells(Ligne, Col) = TbloLibel(indice, 2)  
                    indice = indice + 1  
                    If indice > UBound(TbloLibel) Then Exit Sub  
               Next Col  
          Next Ligne  
     End With  
End Sub  

Sub Bouton5_Clic()
    Dim DernLigne As Long
    DernLigne = Range("A" & Rows.Count).End(xlUp).Row
    RangeArray DernLigne
   
End Sub


Sub RangeArray(DrLgn As Long)
    'Declaration du tableau taille dynamique et redimension du tableau
    Dim TbloLibel() As Variant
With Sheets("Dotation").Range("A2:E" & DrLgn)
    ReDim TbloLibel(.Rows.Count, .Columns.Count)
    'Affecte les valeurs au tableau
    TbloLibel = .Value
    'MsgBox UBound(TbloLibel)

End With

Dim x As Integer, y As Integer, i As Integer, ia As Integer
Dim Onglet As Worksheet
Dim PlageTravail As Range
    
    Set Onglet = Worksheets("etiquette pt")
    Onglet.Select


'efface les données
For x = 1 To 126
For y = 1 To 48
Onglet.Cells(x, y) = ""
Next y
Next x


'Remplir la case 'libellé'
ia = 0
For x = 2 To 126 Step 4
    For y = 2 To 48 Step 6
        'Alimente les éléments du tableau
        ia = ia + 1
        If ia > UBound(TbloLibel) Then
            Onglet.Cells(x, y) = ""
        Else
            Onglet.Cells(x, y) = retournLibelle(ia, TbloLibel)
        End If
    Next y
Next x

'rapel : lign x , colonne y


'Remplir la case 'code'
ia = 0
For x = 3 To 127 Step 4
    For y = 4 To 48 Step 6
        'Alimente les éléments du tableau
        ia = ia + 1
        If ia > UBound(TbloLibel) Then
            Onglet.Cells(x, y) = ""
        Else
            Onglet.Cells(x, y) = retournCode(ia, TbloLibel)
        End If
            Onglet.Cells(x, y - 1) = "*" & Onglet.Cells(x, y).Value & "*"
    Next y
Next x


'Remplir la case 'liste'
ia = 0
For x = 3 To 127 Step 4
    For y = 2 To 48 Step 6
        'Alimente les éléments du tableau
        ia = ia + 1
        If ia > UBound(TbloLibel) Then
            Onglet.Cells(x, y) = ""
        Else
            Onglet.Cells(x, y).Font.ColorIndex = 10
            Onglet.Cells(x, y) = retournListe(ia, TbloLibel)
        End If
    Next y
Next x


End Sub

'Fonction qui retourne le libelle du tableau
Function retournLibelle(indice As Integer, ByRef varTab() As Variant) As Variant
        retournLibelle = varTab(indice, 2)
End Function

Function retournCode(indice As Integer, ByRef varTab() As Variant) As Variant
        retournCode = varTab(indice, 1)
End Function

Function retournListe(indice As Integer, ByRef varTab() As Variant) As Variant
        retournListe = varTab(indice, 5)
End Function

Dim i as Integer, j as Integer 
' 
For i =0 to Ubound(tablo,1) 
....For j =0 to Ubound(tablo,2) 
........If (Condition)
............Code pour remplir la feuille provenant des valeurs du tableau à 2 dim
........End if
....Next j 
Next i