Salut,
3 petites erreurs:
For i = 1 To .founfiles.Count 'il manque un D à founfiles
fso.copyfile.FoundFiles (i), "C:\mes documents\titi"'il manque un espace entre copy file et .foundfiles ,comme sous DOS il manque un slash
Next i
Cela devient donc:
For i = 1 To .FoundFiles.Count
fso.copyfile .FoundFiles(i), "C:\mesdocuments\titi\"
Next i
A+++