Private Sub AjoutLigne()
Application.ScreenUpdating = False
With ActiveSheet
For y = .Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
If .Cells(y, 1) <> "" Then
If .Cells(y, 1) <> .Cells(y - 1, 1) Then .Rows(y).Rows.Insert
End If
Next
End With
Application.ScreenUpdating = True
End Sub