Si, Bernard, on peut encore faire plus court:
Range("A1") peut s'écrire [A1] (mais c'est une habitude que je n'ai pas personnellement, je préfère garder le Range, je trouve cela plus lisible. Ceci dit, c'est bien sûr juste une question de pratique)
Plus intéressant:
Rows(Boucle & ":" & Boucle) peut devenir plus simplement Rows(Boucle)
En fait, on prend l'item dont le n° est boucle dans la collections des Rows de la feuille.
Du coup, petit piège, cela ne fonctionne pas exactement pour des colonnes:
Si tu veux la colonne (D
), il faut mettre soit
Columns(D
), soit columns(4)
Enfin, l'argument Shift:=xlDown de Insert n'est pas obligatoire d'après le test que je viens de faire.
Conclusion:
Dim Boucle As Long
For Boucle = [a1].End(xlDown).Row To 2 Step -1
Rows(Boucle).Insert
Next Boucle
Mais bon, c'est vraiment pour pinailler!
Si seulement je pouvais moi aussi avoir une telle cure d'amaigrissement (lol)
Allez, j'essaie une formule magique, je vais peut-être perdre 5 kg d'un coup, qui sait?
Oups, j'y suis allé un peu fort là! c'est pas la bonne formule (lol)
Allez, à bientôt.
Laurent.