Public Sub Feuil2VersFeuil1()
Dim Rng As Range, L As Long, Li As Long
Set Rng = Feuil2.UsedRange 'feuil1 codename Feuil2
With Feuil1 'Base ali GMT codename Feuil1
L = .Range("B65536").End(xlUp).Row + 1 '1ère ligne vide en colonne B
Rng.Copy Destination:=.Range("B" & L)
Li = .Range("B65536").End(xlUp).Row 'après copy,dernière cellule remplie colonne B
.Range("A" & L + 1 & ":A" & Li) = .Range("A" & L) 'CDate(Date)
.Range("A" & L + 1 & ":A" & Li).HorizontalAlignment = xlCenter
End With
Feuil2.UsedRange.Delete 'efface feuil1 codename Feuil2
End Sub