Dim Numero1 As Integer 'fichier source dim Numero2 As Integer 'fichier destination Dim i As Long, Ligne As String MsgBox "traitement fichier" Numero1 = FreeFile Open "D:\toto\TON_FICHIER.pst" For Input As #Numero1 'mets ici le chemin du fichier outlook sur le serveur Numero2 = FreeFile Open "C:\TITI\TON_FICHIER.pst" For Output As #Numero2 'met ici le chemin du fichier a creer sur le portable Do While Not EOF(Numero1) Input #Numero1, Ligne Print #Numero2, Ligne Loop Close Numero1 Close Numero2 MsgBox "fini"