Bonjour
Il faut modifier l'ordre de tes opérations avant d'imprimer
- Tri
- Ajustage des lignes
- Filtre
- Impression
- Suppression du filtre
- Tri
- Ajustage des lignes
Pour la macro de Sebastien
Sub Impression_SebastienR()
' Impression_Sebastien Roy feuille 1 et trie de la colonne F ordre croissant
Range("A2:I100").Sort Key1:=Range("F1"), Order1:=xlAscending, DataOption1:=xlSortTextAsNumbers
Rows.AutoFit
ActiveSheet.Range("$A$1:$AD$819").AutoFilter Field:=8, Criteria1:="Sebastien Roy"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
ActiveSheet.Range("$A$1:$AD$819").AutoFilter Field:=8
Range("A2:I100").Sort Key1:=Range("A1"), Order1:=xlAscending, DataOption1:=xlSortTextAsNumbers
Rows.AutoFit
End Sub
Je te laisse faire pour les autres