Répétition de macro

[Mich00]

Bonjour le forum,

Voila j'ai crée un fichier me permettant, à partir d'une base de données et l'utilisation de filtres élaborés, d'obtenir diverses informations. J'utilise une macro pour mes filtres, je souhaiterai savoir s'il est possible d'utiliser des variables dans ma macro.
Je m'explique:
Ma macro est la suivante:

Range("AA29:AJ60").Select
Selection.ClearContents
Range("BDD").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"AA1:AJ25"), CopyToRange:=Range("AA29"), Unique:=True

Celle-ci doit se répéter jusqu'à la colonne HJ, par exemple la suivante serait:

Range("AO29:AX60").Select
Selection.ClearContents
Range("BDD").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"AO1:AX25"), CopyToRange:=Range("AO29"), Unique:=True

Est-il possible, plutôt de d'écrire la macro x fois d'utiliser des variables puisque entre AA29 et AO29 il y a un pas de 14 et entre AJ60 et AX60 également un pas de 14. Même chose entre AA1 et AO1 et entre AJ25 et AX25.
Je joins un fichier qui j'espère vous aidera à comprendre ma demande.

Merci d'avance à vous.

 

[CHALET53]

Re : Répétition de macro

Bonjour,

Tu peux compléter ton exemple pour qu'il fonctionne au moins sur la base de la macro proposée
Merci

A suivre