Sub ArchiverRapport()
Dim source As Range
With ThisWorkbook
'Définition de la source des données
With .Sheets("Rapport").Range("A3").CurrentRegion
' Tableau de A3 sans ses lignes d'entêtes
Set source = .Offset(3).Resize(.Rows.Count - 3)
End With
With .Sheets("Archive").Cells(Rows.Count, 1).End(xlUp)(2)
.Offset(, 1).Resize(source.Rows.Count, source.Columns.Count + 1).Value = source.Value
.Resize(source.Rows.Count, 1).Value = Date
End With
End With
MsgBox source.Rows.Count & " ligne(s) archivée(s)", vbInformation, "Archivage"
End Sub