Sub LaMacro()
Dim plgSource As Range, plgDestination As Range
'Copier la source avec l'entête
Set plgSource = Sheets("Feuil1").Range("A1:K1000")
If Month(Date) = 1 Then
'Janvier
Set Destination = Sheets("Feuil2").Range("A1")
Else
'Autres mois ---> prochaine ligne vide
Set Destination = Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp)(1)
'Ne pas inclure l'entête de la plage plgSource
Set plgSource = plgSource.Offset(1).Resize(plgSource.Rows.Count - 1)
End If
plgSource.Copy plgDestination
End Sub