Copie conditionnelle entre feuille

Bonjour à tous,

J'essaye de copier/coller des données entre feuilles de calcul. Il y a ma feuille principale "STAT" qui contient plein de ligne à repartir en fonction de leur catégorie en colonne F.

Pour chaque nom en colonne F il existe déjà une feuille de calcul du même nom.

Je souhaite répartir chaque ligne dans la feuille qui lui correspond.

Voici le code que j'ai écrit :

Sub copy()

Dim i As Variant

Sheets("STAT").Activate

i = 4

While Range("F" & i).Value <> ""

    Range("A" & i, "N" & i).copy Destination:=Sheets(Range("F" & i).Value).Range("A" & i, "N" & i)

    i = i + 1

Wend

End Sub

Le code s’exécute mais rien n’apparaît, ni lignes, ni erreurs. J'aimerais améliorer ce code avec vous !

Merci

J'ai posté trop vite ! Le code au dessus est fonctionnelle pour ceux qui en aurait besoin