Bonjour Fred, le forum,
je te propose d'essayer ceci :
Option Explicit
Sub Essai()
Dim nbcopies%: nbcopies = 3
Worksheets(1).PrintOut Copies:=nbcopies
End Sub
dans ton code initial, je pense que cette instruction est en cause :
If Me.CheckBox2.Value = True Then
essaye avec :
If .CheckBox2.Value = True Then
* en supposant que sur ta 1ère feuille, tu as bien une case à cocher nommée ChekBox2
* il faut aussi que tu coches la case, car si c'est décoché, y'aura rien !
* cette case à cocher, c'est un contrôle de formulaire ou un contrôle ActiveX ?
(la programmation est pas la même pour les deux !)
dhany