Sub Exporter_Données()
'CodeNames des feuilles à adapter
Dim P As Range
Set P = Feuil2.[A5].CurrentRegion.Columns(2).Cells
With Feuil1.[D3].CurrentRegion
.Columns(Month(P(1))).ClearContents 'RAZ
P.Copy .Cells(1, Month(P(1)))
End With
With Feuil1.[D3].CurrentRegion
.Borders.Weight = xlThin
.Offset(.Rows.Count).Resize(.Parent.Rows.Count - .Rows.Count - .Row + 1).Delete xlUp 'RAZ dessous
.Parent.Activate 'facultatif
End With
End Sub