Sub Bouton1_Cliquer()
With Application
.ScreenUpdating = False
ActiveSheet.Range("A1:H50").PrintOut Copies:=1, Collate:=True
.ScreenUpdating = True
End With
End Sub
Salut Abousaad, le Forum
Avec le peu de renseignements donnés...Peut-être comme cela
Code:Sub Bouton1_Cliquer() With Application .ScreenUpdating = False ActiveSheet.Range("A1:H50").PrintOut Copies:=1, Collate:=True .ScreenUpdating = True End With End Sub
Bonne Journée