Merci pour les infos j'ai effectivement vu qu'il manquait cette ligne .
PAr contre je n'arrive pas à utiliser le code qui permet de supprimer la ligne avec le code suivant
Sub create_XML(XML_origin As Variant)
Dim Fread As Integer, Fwrite As Integer
Dim WholeLine As String
Dim i As Long
XMLfile_tmp = XML_origin & ".tmp"
Fread = FreeFile() 'use the next file number available
Open XML_origin For Input As #Fread 'data read from this file
Fwrite = FreeFile()
If Dir(XMLfile_tmp) <> "" Then Kill XMLfile_tmp
Open XMLfile_tmp For Output As #Fwrite 'data written in this file
Line Input #Fread, WholeLine
Print #Fwrite, WholeLine 'first line is copied
Line Input #Fread, WholeLine
If Left(WholeLine, 5) = "<!DOC" Then
' do not copy the declaration of type definition
Else
Print #Fwrite, WholeLine
End If
While Not EOF(Fread)
Line Input #Fread, WholeLine
Print #Fwrite, WholeLine 'everything else is copied
Wend
Close #Fwrite
Close #Fread
End Sub