Extraction de données

Bonjour,

Je suis devant une problématique.

J'ai un tableau avec une liste de gens qui sont dans une "catégorie"

J'aimerais extraire automatiquement un tableau de la liste des gens pour la catégorie "M1", "M2" et "M3"
Voici visuellement ce que je sais faire et ce que j'aimerais faire :

Merci par avance =)

Bonjour,

Comme tout est en tableau, c'est relativement simple à faire ... si tu avais un fichier témoin ce serait plus facile pour nous.

Voici

Sub répartir()
Dim f As Worksheet, categ As ListObject
Set f = ActiveSheet
Set categ = f.ListObjects("_categ")

    If Not f.ListObjects("_M1").DataBodyRange Is Nothing Then f.ListObjects("_M1").DataBodyRange.Delete
    If Not f.ListObjects("_M2").DataBodyRange Is Nothing Then f.ListObjects("_M2").DataBodyRange.Delete
    If Not f.ListObjects("_M3").DataBodyRange Is Nothing Then f.ListObjects("_M3").DataBodyRange.Delete
    For i = 1 To categ.ListRows.Count
        With f.ListObjects("_" & categ.DataBodyRange.Cells(i, 1))
            .ListRows.Add
            .DataBodyRange.Cells(.ListRows.Count, 1) = categ.DataBodyRange.Cells(i, 2)
        End With
    Next

End Sub

Merci Steelson, merci beaucoup, je voulais partager mon fichier mais je ne trouvais pas ou était l'endroit pour le télécharger. Merci en tout cas, c'est parfait.