Formule VBA

Re : Formule VBA

EDIT :

Public Sub Recopie()

Feuil1.Columns("K:S").Copy
Feuil1.Range("K1").End(xlToRight).Offset(0, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False

Feuil2.Columns("F:I").Copy
Feuil2.Range("F1").End(xlToRight).Offset(0, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False

End Sub

ceci marche presque sauf que mes colonnes de ma feuil2 sont selectionnées mais pas copiées ( ni dans ma feuil1 ni 2 ) et j'ai ERREUR 400

Re : Formule VBA

MDR je m'autoréponds :

Public Sub Recopie()

Feuil1.Columns("K:S").Copy
Feuil1.Range("K1").End(xlToRight).Offset(0, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Feuil2.Activate
Feuil2.Columns("F:I").Copy
Feuil2.Range("F1").End(xlToRight).Offset(0, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False

End Sub

Voici ma réponse !

Merci à moi ! LOL

Bonsoir le forum et à tous !