decalé cellule sous condition

Sub Macro1()
Dim cel As Range 'déclare la variable cel (CELlule)
'boucle sur toutes les cellules éditée cel de la colonne A
For Each cel In Range("A1:A" & Range("A65536").End(xlUp).Row)
    'condition : si les 5 premiers caractères de la valeur de
    'la cellules (convertis en majuscule) = "TOTAL"
    If UCase(Left(cel.Value, 5)) = "TOTAL" Then
        cel.Offset(0, 6).Value = cel.Value 'place la valeur de la cellule dans la colonne G
        cel.Value = "" 'supprime la valeur de la cellule
    End If 'fin de la condition
Next cel 'prochaine cellule cel de la boucle
End Sub

Sub test()
For i = 1 To Range("A65536").End(xlUp).Row
    If Left(Cells(i, 1), Len("Total")) = "Total" Then
        Cells(i, 7) = Cells(i, 1)
        Cells(i, 1) = ""
    End If
Next i
End Sub

Sub test()
For i = 1 To Range("A65536").End(xlUp).Row
    If Left(Cells(i, 1), Len("Total")) = "Total" Then _
        For j = 1 To 6: Cells(i, 1).Insert Shift:=xlToRight: Next
Next i
End Sub