Macro EXCEL VBA SOS

Sub Sauve()
' realisation
    Dim row1 As Integer
    Dim row2 As Integer
    Dim row3 As Integer
    Dim row4 As Integer
    Dim col1 As Integer
    Dim col2 As Integer
    Dim col3 As Integer
    Dim col4 As Integer
    
    
    For i = 3 To 5 ' Nombre de ligne du tableau source exemple ligne 3 a 5 inclus
        row1 = i
        col1 = 2
        row2 = i + 17
        col2 = 4
        
        If Cells(row2, col2).Value <> Cells(row1, col1).Value Then ' verification du contenu de la derniere sauvegarde
            For j = 14 To 5 Step -1 ' Nombre de colonne du tableau de sauvagarde exemple les 10 dernieres valeur de chaque ligne
               col4 = j
               row4 = row2
               col3 = j - 1
               row3 = row2
               If Cells(row3, col3).Value <> "" Then ' decalage des sauvegardes
                   Cells(row4, col4).Value = Cells(row3, col3).Value
                   Cells(row3, col3).Value = ""
               End If
            Next
        End If
        Cells(row2, col2).Value = Cells(row1, col1).Value
    Next
End Sub