Bonjour Banzaï,
Voici une autre solution très proche de la tienne,
Private Sub CommandButton3_Click()
Application.WindowState = xlMaximized
UserForm1.Hide
UserForm2.Hide
With Worksheets(Worksheets.Count)
ActiveSheet.UsedRange.Select
ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address
ActiveSheet.PrintPreview
End With
Application.WindowState = xlMinimized
UserForm2.Show
UserForm1.Show
End Sub
Et dans les propriétés de chaque usf mettre showmodal False
Merci pour ton aide. Je vais tester tout çà sur mon fichier définitif.
T.