Appliquer une mise en forme avec une variable

Bonjour à tous,

Je souhaiterais appliquer une hauteur de ligne, à partir de la ligne 6 avec un écart fixe de 28.

Le nombre de ligne à modifier est variable, par contre je sais que les lignes sont espacer de 28.

J'avais donc pensé à ce code :

LigRef = Rows("6:6").Select                'Détermine la première ligne
For Lig = 1 To LigRef Step 28              'Depuis LigRef se déplace de 28 lignes

Rows("LigRef" & Lig).Select                'Sélectionne la ligne 6 & les suivantes après un espace de 28

Selection.RowHeight = 45                 'Applique la hauteur aux lignes sélectionnées

Le souci est que la hauteur ne s'applique que sur la première ligne, ... Ce qui voudrait dire que la sélection ne fonctionne pas.

Quelqu'un aurait-il la gentillesse de me corriger ? Merci d'avance ;)

Bonjour,

Teste ceci

Dim Lig%
  dl = Range("A" & Rows.Count).End(xlUp).Row
  For Lig = 6 To dl Step 28
    Rows(Lig).RowHeight = 45
  Next Lig

Bonjour M12,

Tout est ok, merci pour le coup de pouce ,

Bonne journée ;)