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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 !