Sub copier()
Worksheets("Sheet1").Select
Range("L6").Select
Do Until IsEmpty(ActiveCell)
If ActiveCell = 0 Then
Range("B" & ActiveCell.Row & ":J" & ActiveCell.Row).Copy
Worksheets("Sheet2").Select
Range("B" & Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Row).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Worksheets("Sheet1").Select
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
MsgBox "Macro Completed", vbInformation, ""
End Sub