Sheets("feuil1").Select
Sheets("feuil1").Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
Application.Workbooks.Open (IciTonChemin\A.xlsx")
Workbooks("A.xlsx").Activate
Sheets("feuil1").Activate
Sheets("feuil1").Range("A1").Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False