Bonjour Younes
Voilà une macro qui résout ton problème.
Sub InsertLigne()
Dim NumLig As Integer, i As Integer
Application.ScreenUpdating = False
'Mise en place au départ
Worksheets("Feuil1").Select
Range("F1").Select
Do While ActiveCell <> ""
'Insertion de ligne
If ActiveCell > 1 Then
NumLig = ActiveCell.Value
For i = 1 To NumLig
Selection.EntireRow.Insert
ActiveCell.EntireRow.Value = ActiveCell.Offset(1, 0).EntireRow.Value
ActiveCell.Offset(1, 0).Select
Next i
End If
ActiveCell.Offset(1, 0).Select
Loop
Application.ScreenUpdating = True
End Sub
Simplement, si tu veux autant de lignes que le nombre dans la cellule active et non l'insertion d'un nombre de lignes équivalent au nombre dans la cellule active, ce qui donne une ligne de plus identique aux précédentes que le nombre dans la cellule active, tu remplaces For i = 1 To NumLig par For i = 1 To NumLig -1
Cordialement
Bernard