Sub MàJListeParrainPot()
Dim TSrc(), LSrc&, TCbl(), LCbl, Stat, D As New Dictionary
TSrc = Feuil2.ListObjects(1).DataBodyRange.Value
For Each Stat In Array("Vent Équilibre", "Ombrevent", "Âme du Cercle", "Maître Ombre", "Décorateur")
D.Add Stat, Empty: Next Stat
ReDim TCbl(1 To UBound(TSrc, 1), 1 To 1)
For LSrc = 1 To UBound(TSrc, 1)
If D.Exists(TSrc(LSrc, 3)) Then LCbl = LCbl + 1: TCbl(LCbl, 1) = TSrc(LSrc, 1)
Next LSrc
Feuil3.[A2].Resize(UBound(TCbl, 1)).Value = TCbl
End Sub