VBA - Aide pour macro de copie

Bonjour,

J'ai un petit souci de macro. J'ai bricolé avec mes maigres connaissances jusqu'à présent mais je bloque un peu maintenant.

J'ai un tableau de données dans une première feuille, je veux copier certaines données dans deuxième feuille.

Voici la configuration de la première feuille :

Col E --- Col F  --- Col G --- Col H --- Col I --- Col J
ABCD  --- Blabla --- 30    --- 10    --- 3     --- 0
EFGH  --- Toitoi --- 8     --- 8     --- 1     --- 0
IJKL  --- Albalb --- 36    --- 10    --- 3     --- 4
MNOP  --- Iotiot --- 10    --- 4     --- 2     --- 2

Quand la colonne G est renseignée (non vide), je veux copier E - F - H sur ma feuille 2, I fois.
Et si J est différent de 0, je rajoute une ligne E - F - J.

Avec l'exemple ci-dessus, j'obtiendrai ça :

Feuille 2 :

Col A --- Col B  --- Col C 
ABCD  --- Blabla --- 10
ABCD  --- Blabla --- 10
ABCD  --- Blabla --- 10
EFGH  --- Toitoi --- 8
EFGH  --- Toitoi --- 8
EFGH  --- Toitoi --- 8
IJKL  --- Albalb --- 10
IJKL  --- Albalb --- 10
IJKL  --- Albalb --- 10
IJKL  --- Albalb --- 4
MNOP  --- Iotiot --- 4
MNOP  --- Iotiot --- 4
MNOP  --- Iotiot --- 2

À l'heure actuelle, j'ai la macro suivante :

Sub COPIER()

Dim Derlig As Integer, Ligvide As Integer, Lig As Integer, Nbre As Byte, Copies()

Application.ScreenUpdating = False
Sheets("DEUX").Range("A2:D500").ClearContents

With Sheets("UNE")
     For Lig = 5 To 139
        If .Cells(Lig, "H") > 0 Then
            Copies = .Range(.Cells(Lig, "E"), .Cells(Lig, "J")).Value
            Nbre = .Cells(Lig, "I")
            With Sheets("DEUX")
                Ligvide = .Columns("A").Find("", .Range("A1")).Row
                .Cells(Ligvide, "A").Resize(Nbre, 6) = Copies
            End With
            If .Cells(Lig, "J") > 0 Then
                Copies = .Range(.Cells(Lig, "E"), .Cells(Lig, "J")).Value
            End If
            With Sheets("DEUX")
                Ligvide = .Columns("A").Find("", .Range("A1")).Row
                .Cells(Ligvide, "A").Resize(1, 6) = Copies
            End With
        End If
     Next
End With
End Sub

Pourriez m'aider un petit peu svp ?!