Re : multi-impression à partir d'une feuille
Bonjour, un code associé à ton bouton :
Private Sub CommandButton1_Click()
Dim mat
With Sheets("personnel")
For Each mat In .Range("C3:C" & .[c65000].End(xlUp).Row)
[d3] = mat
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Preview:=True
Next mat
End With
End Sub
Tu peux supprimer "Preview" (et la virgule qui précède), c'est pour l'aperçu avant impression (économie de papier pour les tests...)