Aide type de copie dans macro

Sub Backup()

Dim F_S As Worksheet 'Feuille source
Dim F_D As Worksheet 'Feuille Destination
Dim Lig_S As Long 'Ligne source
Dim Lig_D As Long 'Ligne destination

'Définition des feuilles
Set F_S = Sheets("SOURCE") 'feuille source = onglet(Rex)
Set F_D = Sheets("DESTINATION") 'feuille destination = onglet(perimee)

'Ligne destination est la première de A vide
Lig_D = F_D.Range("A65536").End(xlUp).Row + 1

For Lig_S = F_S.Range("A65536").End(xlUp).Row To 1 Step -1
'Pour Ligne source = dernière non vide en G jusqu'à la ligne 1
'en passant à la ligne précédente par décrémentation (-1)
'Quand la valeur est inférieure à 1, on passe à la ligne suivante "Next Lig_S"

'évite les erreurs si tu as un titres
If F_S.Range("A" & Lig_S) = 1 Then
'on copie la ligne source sur la ligne destination
F_S.Rows(Lig_S).Copy Destination:=F_D.Rows(Lig_D)

'on passe à la ligne destination suivante
Lig_D = Lig_D + 1
'on efface la ligne source
F_S.Rows(Lig_S).Delete
End If

'Retour à l'instruction For Lig_S....
Next Lig_S

'on avertit que c'est fini
MsgBox ("Nettoyage terminé.")

End Sub

Cliquez pour agrandir...