Effacer 1ère ligne fichier texte

    rep = ThisWorkbook.Path   ' adapter
    Open rep & "\essai.txt" For Input As #1
    Open rep & "\sortie.txt" For Output As #2
    '--1er fichier
    Line Input #1, ligne
    Do While Not EOF(1)
      Line Input #1, ligne
      Print #2, ligne
    Loop
    Close #1, #2

Sub DelLigne()
    Dim Ligne As String, FichierSource As String, FichierTmp As String
    Dim CptLigne As Long, LigneASupprimer As Long

    FichierSource = "c:\text.txt"
    FichierTmp = "c:\Tmp.Tmp"
    LigneASupprimer = 1
    
    Open FichierSource For Input As #1
        Open FichierTmp For Output As #2
            While Not EOF(1)
                CptLigne = CptLigne + 1
                Input #1, Ligne
                If CptLigne <> LigneASupprimer Then
                    Print #2, Ligne
                End If
            Wend
        Close #2
    Close #1
    Kill FichierSource
    Name FichierTmp As FichierSource
End Sub