Comment éviter de répéter du code

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 !

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

Bonjour Zebreloup,

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