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
Mais un dernier détail job75 , je voudrais que seules les valeurs soient transférées au cas ou il aurait une formule dans la plage d'origine.
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
.Columns(Month(P(1))).Resize(P.Count) = P.Value 'copie les valeurs
End With
With Feuil1.[D3].CurrentRegion
.Borders.Weight = xlThin 'bordures
.Offset(.Rows.Count).Resize(.Parent.Rows.Count - .Rows.Count - .Row + 1).Delete xlUp 'RAZ dessous
.Parent.Activate 'facultatif
End With
End Sub