Hello,
pourquoi en VBA ?
Avant de parler de macro essayez d'utiliser les fonctionnalités du logiciel (quelle version au fait ?)
Pour toutes les versions :
Dans la feuille "donnees" nommez les cellules C4 à E23 "BdD" (à ajuster en fonction de vos données) pour simplifier les manips
Recopier les cellules C4 et D4 dans la feuil "math" (il faut que les noms soient identiques)
Dans la feuille "math" utilisez une cellule pour mettre le titre du critère "Groupe" (identique à la feuille donnees) et en dessous le critère (Groupe 1 par exemple)
(supprimez aussi la ligne en trop entre le n° et les titres)
Dans la feuille "math"
Cliquez sur la cellule C3 (celle qui contient NOM), onglet Données, groupe Trier et filtrer, Avancé
cochez "Copier vers un autre emplacement"
Dans "Plages" tapez BdD
Dans "Zone de critères" sélectionner les 2 cellules contenant le titre "Groupe" et en dessous le critère "Groupe 1"
Dans "Copier dans" sélectionnez UNIQUEMENT les cellules C3 et D3, OK
Après, si vous tenez absolument à avoir des macros, enregistrez les manips que je viens de vous donner, et puis c'est tout
C'est plus long à écrire qu'à faire et c'est une fonctionnalité existante, donc pas besoin de réinventer la roue

Edit pour 365
=FILTRE(donnees!C5:D22;donnees!E5:E22="Groupe 1")
Partager