compléter liste des lignes sur feuil2

Sub Macro1()
Dim Lig1 As Single, Lig2 As Single, nb As Integer
   For Lig1 = 2 To [Feuil1].[A65536].End(xlUp).Row
      For Lig2 = 2 To [Feuil2].[C65536].End(xlUp).Row
        If [Feuil1].Range("C" & Lig1).Value = [Feuil2].Range("C" & Lig2).Value And _
         [Feuil1].Range("D" & Lig1).Value = [Feuil2].Range("D" & Lig2).Value Then
          [Feuil1].Rows(Lig1).Copy Destination:=[Feuil2].Range("A" & Lig2)
          Range("G" & Lig2) = Lig2 - 1
        End If
      Next Lig2
   Next Lig1
End Sub