Private Sub Worksheet_Activate()
Dim i&, lig&
Application.ScreenUpdating = False
lig = 4
Sheets("Etiquettes L7125").Cells.ClearContents
With Sheets("Feuil1")
For i = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row Step 4
Cells(lig, 1) = .Cells(i, 2): Cells(lig + 1, 1) = .Cells(i, 1)
Cells(lig, 2) = .Cells(i + 1, 2): Cells(lig + 1, 2) = .Cells(i + 1, 1)
Cells(lig, 3) = .Cells(i + 2, 2): Cells(lig + 1, 3) = .Cells(i + 2, 1)
Cells(lig, 4) = .Cells(i + 3, 2): Cells(lig + 1, 4) = .Cells(i + 3, 1)
lig = lig + 2
Next
End With
End Sub