Sub Impression()
Sheets("Feuil1").PrintPreview 'Visualise l'impression
'Sheets("Feuil1").PrintOut 'Lance l'impression
End Sub
Sub Impression()
'Sheets("Feuil1").PrintPreview 'Visualise l'impression
Sheets("Feuil1").PrintOut 'Lance l'impression
End Sub
Merci@Seddiki_adz
Le fichier modifié mais je m’arrête la car il y a pas de limite autrement donc c'est ma dernière modification sur ce fichier.
@Phil69970