Séparer lignes

Bonjour

Serait-il possible d'avoir une séparation toutes les 3 lignes de la grille A1 a I18 de façon a obtenir 6 grilles séparées par 1 lignes chacune et en conservant le tirage jusque la ligne 23.

Pièce jointe fournie(qui n'est pas de moi,trouvé sur le forum).

Merci beaucoup

Bonjour,

Sub SéparationGrille()
    Dim i%
    With ActiveSheet
        For i = 4 To 20 Step 4
            .Range("A" & i & ":I" & i).Insert xlShiftDown
        Next i
        .Rows("19:23").RowHeight = .Rows(1).RowHeight
    End With
End Sub

Cordialement.

Merci beaucoup

Ça marche , juste ce qu'il me faut.

Excusez-moi de revenir a vous mais après les lignes 18 le tirage ne ce fait pas.

Merci de me répondre a ce sujet.

Bonjour,

Tu as demandé qu'on t'insère des lignes. C'est fait !

Il est bien possible que le programme ne trouve plus les éléments qu'il lui faut à leur place après cela, c'est une autre question. Il t'appartient de regarder avant les incidences de ce que tu veux faire. Ensuite tu peux choisir de le faire ou pas en connaissance de cause.

Cordialement.