Bonjour Omnipopo, bonjour le forum,
Essaie l'une ou l'autre des solutions :
Sub Macro1()
Sheets("Feuil1").Application.Union(Columns("A:I"), Columns("K:K")).Copy Sheets("Feuil2").Range("A1")
End Sub
Sub Macro2()
Sheets("Feuil1").Columns("A:I").Copy Sheets("Feuil2").Range("A1")
Sheets("Feuil1").Columns("K:K").Copy Sheets("Feuil2").Range("K1")
End Sub