Macro pour copie coller

Bonjour à tous,

merci de l'attention que vous voudrez bien accorder à mon message.

Je voudrais tous les mois à l'aide d'une macro copier une colonne toujours la même et la coller dans la même feuille un peu plus loin mais dans une colonne par mois cad dire mois 1 colonne f copiée coller en colonne m, mois 2 colonne f copiée collée en colonne n, mois 3 etc.....

Frédéric

Bonjour

Pour coller tes données sur le mois en cours

Code Module

Sub Coller_Mois_En_Cours()
Dim i, Val As Variant
xdate = Now()
Val = Application.WorksheetFunction.Proper(Format(xdate, "mmmm"))
Range("f2", Range("f2").End(xlDown)).Copy
i = Application.WorksheetFunction.Match(Val, Range("M1:X1"), 0)
Range("f2", Range("f2").End(xlDown)).Offset(0, i + 6).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveCell.Select
End Sub

Cordialement