'Exemple d'utilisation:
'Transfert("C:\toto\","C\tata\","test.txt")
'
'Ne pas oublier le "\" final dans les noms de réperoire
Sub Transfert(AncienRep As String, NouveauRep As String, Fichier As String)
If FileExists(AncienRep & Fichier) Then
SetAttr AncienRep & Fichier, vbNormal 'optionnel
FileCopy AncienRep & Fichier, NouveauRep & Fichier
Kill AncienRep & Fichier
End If
End Sub