Comment éviter de répéter du code [Résolu]

[Runsh63]

Bonjour,

Dans une de mes macros, j'ai besoin de repérer dans un onglet une cellule particulière. A partir de cette cellule, j'ai besoin d'insérer 7 colonnes à la droite de cette colonne : Voilà ce que j'ai écrit, ne sachant trop comment faire plus propre (le résultat reste le même) :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
With Sheets("PMP")
 
    Set StartRange = .Cells.Find("Item group", LookIn:=xlValues)
 
        StartRange.Offset(0, 1).EntireColumn.Insert
        StartRange.Offset(0, 1).EntireColumn.Insert
        StartRange.Offset(0, 1).EntireColumn.Insert
        StartRange.Offset(0, 1).EntireColumn.Insert
        StartRange.Offset(0, 1).EntireColumn.Insert
        StartRange.Offset(0, 1).EntireColumn.Insert
        StartRange.Offset(0, 1).EntireColumn.Insert
 
    End With

Comment aurai-je pu éviter la réitération de ma ligne sept fois SVP ?

Merci d'avance !

[ZebreLoup]

Essaie ça :
[EDIT] attends, ça ne marche pas, j'avais pas testé, je te reviens dans 5 min
[EDIT2] Ca devrait marcher maintenant

Code :

.Range(StartRange.Offset(0, 1), StartRange.Offset(0, 7)).EntireColumn.Insert

Ou une boucle For ... Next sinon

[Runsh63]

Bonjour Zebreloup,

Je ne dirai qu'un mot : "Royal".
Je te remercie, c'est parfait, ça fonctionne !