Private Sub CommandButton3_Click()
With Sheets("Tableau")
.Rows("13:18").Hidden = False
.Rows("19:22").Hidden = True
.Rows("24:26").Hidden = False 'ne pas toucher aux lignes 27:30
.Rows("31:41").Hidden = False
.Rows("43:52").Hidden = True
'3 lignes UNIQUEMENT POUR TESTER
Me.Hide
.PrintPreview 'aperçu avant impression
Me.Show
'lignes neutralisées POUR TESTER
'Application.ActivePrinter = "Canon MG8100 series Printer sur Ne02:" 'modifier le liens de l'imprimante en cas de changement
'.PrintOut Copies:=1, ActivePrinter:= _
"Canon MG8100 series Printer sur Ne02:", Collate:=True
End With
End Sub