Bonjour
j'aimerais simplifier le code ci-dessous car j'ai à le répéter un certain nombre de fois
Quelqu'un aurait il une solution ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sheets("Feuil1").Select
    Range("A1:cj1").Select
    Selection.Copy
    Range("A2:A4000").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Calculate
    Selection.Copy
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
merci