Macro Excel:difficulté parcours d'un tableau

Sub rangement()
'déclaration des variables, i pour la boucle et derlig fin de boucle
Dim i, derlig As Integer
'derlig = nombre de lignes de la colonne A divisé par 4
derlig = CInt(Range("A65536").End(xlUp).Row / 4)
'initialise la boucle 
For i = 1 To derlig
'la syntaxe Cells(ligne, colonne) est facilement accessible
    Cells(i, 2).Value = Cells(i + 1, 1).Value
    Cells(i, 3).Value = Cells(i + 2, 1).Value
    Cells(i, 4).Value = Cells(i + 3, 1).Value
'ici on supprime les lignes entières...
    Range(Cells(i + 1, 1), Cells(i + 3, 1)).EntireRow.Delete
Next
End Sub

Sub transposition()
Dim NbLig as long
Dim I as integer

Sheets("feuil1").Select  ' à adapter
NbLig = Range("a1").CurrentRegion.Rows.Count

For I = 0 To nblig Step 4
    Range("A1").Offset(I + 1, 0).Resize(3, 1).Select
    Selection.Copy
    Range("A1").Offset(I, 1).Resize(1, 3).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
Next
' on efface la ligne entière en controlant
'les vides de la colonne B
For I = 1 To NbLig
    If IsEmpty(Cells(I, 2)) Then
    Rows(I).Delete
    I = I - 1
    End If
Next I


End Sub

Sub repartition_par_tablo()
Dim tablo() As String
Dim I, j, k, derlig As Integer
derlig = Range("A65536").End(xlUp).Row
    ReDim tablo(derlig)
For I = 1 To UBound(tablo)
    tablo(I) = Cells(I, 1).Value
Next
k = 1
derlig = CInt(derlig / 4)
For I = 1 To derlig
    For j = 1 To 4
        Cells(I, j).Value = tablo(k)
        k = k + 1
    Next j
Next I
I = Range("B65536").End(xlUp).Row
j = Range("A65536").End(xlUp).Row
Range(Cells(I, 1), Cells(j, 1)).EntireRow.Delete
End Sub