Réponse acceptée !
Il te suffit de boucler sur tout tes fichiers, et tester leurs noms :
Dim sFile As String
sFile = Dir("c:\Test\toto*.")
While sFile <> ""
FileCopy "c:\Test\" & sFile, "c:\Test\1\" & sFile)
sFile = Dir
Wend
sFile = Dir("c:\Test\titi*.")
While sFile <> ""
FileCopy "c:\Test\" & sFile, "c:\Test\2\" & sFile)
sFile = Dir
Wend
_____________________________________________________________________