code pour remplacer par ...

Katoch

XLDnaute Junior
Bonjour à tous !

J'ai besoin de remplacer dans un très grand nb de macros (plusieurs centaines d’occurrences...)
les 2 lignes , contiguës , de code suivantes :

Selection.AutoFilter
Selection.AutoFilter

par

If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
Selection.AutoFilter

Quelqu'un a-t-il une solution ?
 

Discussions similaires

Statistiques des forums

Discussions
314 499
Messages
2 110 247
Membres
110 711
dernier inscrit
chmessi