Sub imprimer()
Dim TabData() As Variant
Dim NbEtiquette As Long
NbEtiquette = 4
With Sheets("Feuil1")
fin = .Range("A" & .Rows.Count).End(xlUp).Row
TabData = .Range("A2:F" & fin).Value
End With
With Sheets("Feuil3")
.Activate
indi = 1
indj = 3
For i = LBound(TabData, 1) To UBound(TabData, 1)
.Cells(2 + (indi - 1) * 5, indj) = TabData(i, 1)
.Cells(4 + (indi - 1) * 5, indj) = TabData(i, 3)
.Cells(6 + (indi - 1) * 5, indj) = TabData(i, 4)
.Cells(8 + (indi - 1) * 5, indj) = TabData(i, 5)
.Cells(2 + (indi - 1) * 5, indj + 3) = TabData(i, 2)
.Cells(8 + (indi - 1) * 5, indj + 3) = TabData(i, 6)
indj = IIf(indj = 3, 9, 3)
indi = IIf(indj = 3, indi + 1, indi)
If ((i - 1) Mod NbEtiquette) + 1 = NbEtiquette Then
indi = 1
'lancer impression de la page
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
clearlabel 'effacer les etiquettes
End If
Next i
End With
End Sub
Sub clearlabel()
With Sheets("Feuil3")
.Range("C:C").ClearContents
.Range("F:F").ClearContents
.Range("I:I").ClearContents
.Range("L:L").ClearContents
End With
End Sub