Merci pour ta réponse rapide , voilà ton fichier, en fait je voudrais que le résultat en sheet2 , apres avoir sélectionner en sheet 1 par command button ne s'efface pas et que le suivant choix que je ferai ne remplace pas le premier en sheet 2 mais s'ajoute à celui-ci et ainsi de suite
Ah je n'avais pas pensé à ce fichier là quand je t'ai répondu hier. D'ailleurs c'est plus une sorte de test qu'une démo mais si tu y as trouvé ton bonheur alors c'est le principal !
Bon alors juste deux petits trucs à faire pour que cette macro "FiltreReport" fasse ce que tu veux :
Cette Ligne :
Sheets(2).Range("a2:d100").ClearContents
ACTION : => A Supprimer
Cette Ligne :
iF2 = 2
ACTION : => A Remplacer par :
iF2 = Sheets("Sheet2").Range("A65536").End(xlUp).Row + 1
C'est tout, à partir de ces changement la macro reportera les items filtrés à la suite les uns des autres, ligne par ligne.