Private Sub ajout_Click()
Dim n As Integer
Dim j As Integer
n = ajout_ligne.nombre.Value
For j = 1 To n
Dim i As Integer
i = 1
While Cells(i, 1) <> ""
If Cells(i, 2).Interior.ColorIndex = 6 Then
Cells(i, 1).EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Cells(i - 1, 1).EntireRow.Copy
Cells(i, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
i = i + 1
End If
i = i + 1
Wend
Next
Unload ajout_ligne
End Sub