Scinder un onglet en plusieurs onglets

Bonjour

J'ai un fichier avec un onglet général.
Je souhaite scinder cet onglet en créant un onglet par Direction 6 en tout
J'avais déjà un fichier du même type où la macro fonctionne bien, mais sur celui-ci qui est construit de façon identique ça ne fonctionne pas...
Pourriez-vous m'aider, SVP
voici mon code


Sub Copie()
Dim Sh As Object, Lg As Long
With ActiveSheet
For Each cel In .Range("C5:C" & .Range("C" & Rows.Count).End(xlUp).Row).Cells
Set Sh = Sheets("Q1_" & cel.Value)
Lg = Sh.Range("A" & Rows.Count).End(xlUp).Row + 1
If Application.WorksheetFunction.CountIf(Sh.Range("A:A"), Range("A" & cel.Row).Value) = 0 Then _
.Range("A" & cel.Row & ":U" & cel.Row).Copy Destination:=Sh.Range("A" & Lg)
Next
End With
End Sub

En fait, cela ne me copie que la 1ère donnée pour chaque onglet.
Je ne sais pas si je suis très claire...
L'onglet général fait environ 70 lignes
de la colonne A à U

Merci de votre aide

Isabelle