Sub Impression_masse()
Dim i As Long
With Sheets("Saisie")
For i = 6 To .Range("A" & .Rows.Count).End(xlUp).Row
Sheets("Paramêtres").Range("B5") = .Range("A" & i)
Sheets("Paramêtres").Range("B16") = .Range("F" & i)
Sheets("Paramêtres").Range("B6") = .Range("L" & i)
Sheets("Paramêtres").Range("B14") = .Range("M" & i)
MsgBox "La transaction a été réalisée avec succès !!!" & Chr(13) & "Veuillez SVP apposée l'étiquette et rangée le produit dans son emplacemnt défini", 64, "Finalisation Transaction"
Sheets("Etiquette").PrintPreview ' pour tests
'Sheets("Etiquette").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Next i
End With
End Sub