Exporter des données d'un fichier excel

Salut,

Cette macro copie les données de la Feuil1 à partir de la colonne A à la suite dans la Feuil2

Sub Macro1()
Dim Lig As Long
Dim LigFinA As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Dim LigFin As Long
Sheets("Feuil2").Activate
Col = "A"
LigFin = Range("A65536").End(xlUp).Row + 1
NumLig = 1
With Sheets("Feuil1")
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 1 To NbrLig
If .Cells(Lig, Col).Value <> "" Then
.Cells(Lig, Col).EntireRow.Copy

NumLig = NumLig + 1
Cells(LigFin, 1).Select
LigFin = LigFin + 1
ActiveSheet.Paste
End If
Next
End With
ActiveCell.Select
Sheets("Feuil1").Activate
Application.CutCopyMode = False
MsgBox ("ARCHIVAGE EFFECTUE")
End Sub

Il est possible éventuellement supprimer les données de la feuille1, d'enregistrer automatiquement après le transfert etc ...

A+