VBA - Copier/coller des lignes sous condition

Sub ACTUALISATION_DONNEES_TDB()
Dim i As Integer, j As Integer, Derlig As Integer
Dim Ligvid As Integer
Dim Tampon1 As Integer
Dim Tampon2 As Integer
Dim Tampon3 As Integer
Dim Tampon4 As Integer
Application.ScreenUpdating = False
'Lance la sub EFFACER pour purger le tableau avant compilation
EFFACER
For j = 4 To 5
    Sheets(j).Select
    Derlig = Sheets(j).Range("A" & Rows.Count).End(xlUp).Row
    For i = Derlig To 2 Step -1
        Sheets(j).Select
        If UCase(Range("G" & i)) = "1" Then
            'mémorisation de la plage à transfèrer
            Tampon1 = Sheets(j).Range("A" & i & ":A" & i)
            Tampon2 = Sheets(j).Range("C" & i & ":F" & i)
            Tampon3 = Sheets(j).Range("H" & i & ":J" & i)
            Tampon4 = Sheets(j).Range("L" & i & ":L" & i)
            'Tampon = Range(Cells(Lig, "A"), Cells(Lig, "L"))
            With Sheets("Tableau de bord")
            '1° ligne vide
            Ligvid = .Columns("A").Find("", .Range("A1")).Row
            'écriture de la plage
            With .Range(.Cells(Ligvid, "A"))
            .Value = Tampon1
            'écriture de la plage
            With .Range(.Cells(Ligvid, "B"), .Cells(Ligvid, "E"))
            .Value = Tampon2
            'écriture de la plage
            With .Range(.Cells(Ligvid, "F"), .Cells(Ligvid, "H"))
            .Value = Tampon3
            'écriture de la plage
            With .Range(.Cells(Ligvid, "I"))
            .Value = Tampon4
            End With
            End With
            End With
            End With
            End With
        End If
    Next
Next
Sheets("Tableau de bord").Activate
End Sub