Ajouter des lignes vides avec une valeur de cellule

Code pour ajouter des lignes vides avec le numéro d'une valeur de cellule spécifique dans Excel, par exemple, si la cellule A2 est égale à 4, quatre lignes sont ajoutées de bas en bas et ainsi de suite

Bonsoir Arwasoha,

Selon ce que j'ai compris, je te propose ce petit bout de code :

Sub Arwasoha()

    Dim dl As Long, i As Long, j As Long, k As Long
    dl = ActiveSheet.Cells(Application.Rows.Count, 1).End(xlUp).Row

    For i = dl To 1 Step -1
            j = ActiveSheet.Range("A" & i).Value
            For k = 1 To j Step 1
                ActiveSheet.Rows(i + 1).EntireRow.Insert
            Next k
    Next i

End Sub

Si tu as des questions ou que le code ne répond pas à tes attentes, n'hésite pas à m'en parler ;)

Cordialement,

LSK