Bonjour alain,
Tu peux essayer cette macro, ça devrait le faire.
Sub essai()
Dim cellule As Range
Application.ScreenUpdating = False
Columns('N:N').Select
For Each cellule In Selection
i = cellule.Row
If Cells(i, 1).Text = '' Then Exit Sub
If cellule.Text = '1' Then
Range(Cells(i + 1, 1), Cells(i + 1, 10)).Select
Application.CutCopyMode = False
Selection.Copy
Cells(i + 3, 1).Select
Selection.Insert Shift:=xlDown
Range(Cells(i + 1, 1), Cells(i + 1, 10)).Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End If
Next cellule
Range('A1').Select
Application.ScreenUpdating = True
End Sub