Re,
Evite de remettre ton fichier si rien n'est changé dans la structure de ta feuille. Cela encombre inutilement le forum.
Là je vois que le fichier n'est pas celui que je t'ai proposé. Je laisse donc Banzai64 te répondre.
Si tu prends la solution que je t'ai proposée il te suffit de remplacer cette ligne dans mon code -->
.Range("A" & cel.Row & ":S" & cel.Row).Copy Sheets(CStr(Cells(cel.Row, 2))).Range("A" & dlg)
Si ok n'oublie pas de cloturer le fil --> clique sur le v vert
A bientôt
Edit Dan : si copie de A à W -->
.Range("A" & cel.Row & ":W" & cel.Row).Copy Sheets(CStr(Cells(cel.Row, 2))).Range("A" & dlg)