aide sur instruction PrintArea

[janick]

Bonjour,

Private Sub CommandButton1_Click() 'HS de janvier
Sheets('Janvier').Select
Unload USERFORM2
ActiveSheet.Unprotect
Application.GoTo Reference:=ActiveSheet.Range('A249'), Scroll:=True

ActiveSheet.PageSetup.PrintArea= '$a$249:$aq$303'
Range('A249').Select

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
End Sub

Dans cette instruction la partie 'printArea' semble occuper le programme plusieurs secondes avant de me redonner la main. Pouvez vous me dire si j'ai bien utiliser les bonnes instructions.
merci

 

[janick]

Bonjour, Jose

Je peux joindre mon programme si cela interesse afin de lui apporter quelques ameliorations,