Merci François c'est tout à fait ce que je recherchais :)

Sub Supprimer_premiere_ligne Dim f1 As Integer, f2 as integer Dim uneLigne As String dim identite as string, resultat as string identite = "C:\Documents and Settings\Françoise\Bureau\Formulaire\Sources\formulaire.xml" f1 = FreeFile ' obtenir un numéro de fichier ouvert Open identite For input As #f1 resultat = "C:\Documents and Settings\Françoise\Bureau\Formulaire\Sources\resultat.xml" f2 = FreeFile ' obtenir un numéro de fichier ouvert Open resultat For output As #f2 '*** Effacer la première ligne du fichier formulaire.xml Line Input #f1, uneLigne '1 '***Ecrire toutes les autres lignes

While not eof(1) Line Input #f1, uneLigne'2 Print #f2, uneLigne Wend MsgBox "Le fichier resultat.xml est maintenant dans le dossier Sources" Close End Sub