Bonjour,

Je suis débutante en VBA et je cherche a répéter une macro que j'ai faite avec l'enregistreur de macro. Sur mon fichier excel j'ai des donnée dan plusieurs cellules toutes sur la meme ligne( de A1 à AY1), je veux couper à partir de la colonne H toute les cellules vers la droite, puis les coller sur la ligne A2, Ensuite répéter l'opération c'est a dire couper les cellules de H2 à La macro est la suivante :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub macro1()
'
' macro1 Macro
'
    Range("H1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = False
    Selection.Cut
    Range("A2").Select
    Selection.Insert Shift:=xlDown
 
        Range("H2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = False
    Selection.Cut
    Range("A3").Select
    Selection.Insert Shift:=xlDown
 
End Sub