With End With ou For To Next ??

Bonjour a tout le forum
voila j ai cette partie de macro , qui me chagrine par sa longueur
je me demande (sans trouver) si il n 'y a pas moyen de faire plus court , de boucler ?? peut être

merci pour vos bonnes idées
bonne soirée a tous

E et F



With Selection
.AutoFilter Field:=1
.AutoFilter Field:=2
.AutoFilter Field:=3
.AutoFilter Field:=4
.AutoFilter Field:=5
.AutoFilter Field:=6
.AutoFilter Field:=7
.AutoFilter Field:=8
.AutoFilter Field:=9
.AutoFilter Field:=10
.AutoFilter Field:=11
.AutoFilter Field:=12
.AutoFilter Field:=13
.AutoFilter Field:=14
.AutoFilter Field:=15
.AutoFilter Field:=16
End With