Copier certaines colonnes dans un autre onglet

Private test As Boolean 'décalre la variable test
 
Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onglet
Dim sour As Range 'déclare la variable sour (SOURce)
Dim oc As Worksheet 'déclare la variaboe oc (Onglet Cible)
Dim dest As Range 'décalre la variable dest (DESTination)
 
If test = True Then Exit Sub 'si la variable test est vraie, sort de la procédure
 
If Target.Column = 7 Or Target.Column = 8 Then 'condition 1 : si le changement a lieu dans la colonne 7 ou la colonne 8
    test = True 'définit la variable test
    Set sour = Cells(Target.Row, 1) 'définit la variable sour
    On Error Resume Next 'si une erreur est générée passe à la ligne suivante (gestion des erreurs si onglet inexistant)
    Set oc = Sheets(sour.Value) 'définit l'Onglet Cible
    If Err > 0 Then 'condition 2 : si une erreur a été générée
        MsgBox "Donnée Erronée !" 'message
        Target.ClearContents 'efface la somme (débit ou crédit)
        Cells(Target.Row, 1).Select 'sélectionne la cellule de la colonne A
        test = False 'redéfinit la variable test
        Exit Sub 'sort de la procédure
    End If 'fin de la condition 2
 
    Set dest = oc.Range("A65536").End(xlUp).Offset(1, 0) 'définit la variable dest
    sour.Offset(0, 2).Copy dest 'copie la date
    sour.Offset(0, 4).Copy dest.Offset(0, 1) 'copie le numéro de pièce
    sour.Offset(0, 5).Copy dest.Offset(0, 2) 'copie le libéllé écriture
    sour.Offset(0, 6).Copy dest.Offset(0, 3) 'copie le débit
    sour.Offset(0, 7).Copy dest.Offset(0, 4) 'copie le crédit
End If 'fin de la condition 1
test = False 'redéfinit la variable test
End Sub

Sub tri()
Set FE = Sheets("ECRI")
Set FG1 = Sheets("EGA1")
Set FG2 = Sheets("EGA2")
Derligne = FE.Range("A" & Application.Rows.Count).End(xlUp).Row
For i = 1 To Derligne
    If FE.Cells(i, 1).Value = "EGA1" Then
        Derligne2 = FG1.Range("A" & Application.Rows.Count).End(xlUp).Row + 1
        With FG1
            .Cells(Derligne2, 1).Value = FE.Cells(i, 3).Value
            .Cells(Derligne2, 2).Value = FE.Cells(i, 5).Value
            .Cells(Derligne2, 3).Value = FE.Cells(i, 6).Value
            .Cells(Derligne2, 4).Value = FE.Cells(i, 8).Value
            .Cells(Derligne2, 5).Value = FE.Cells(i, 7).Value
        End With
    End If
    If FE.Cells(i, 1).Value = "EGA2" Then
        Derligne3 = FG2.Range("A" & Application.Rows.Count).End(xlUp).Row + 1
        With FG2
            .Cells(Derligne3, 1).Value = FE.Cells(i, 3).Value
            .Cells(Derligne3, 2).Value = FE.Cells(i, 5).Value
            .Cells(Derligne3, 3).Value = FE.Cells(i, 6).Value
            .Cells(Derligne3, 4).Value = FE.Cells(i, 8).Value
        .Cells(Derligne3, 5).Value = FE.Cells(i, 7).Value
        End With
    End If
Next
MsgBox "Traitement terminé"
End Sub