Supprimer lignes fichier txt

Private Sub TraitementFichier()
    Dim Fichier As String, F As Integer, F2 As Integer, strLine As String
    Fichier = "C:\chemin\nomfichier.txt"
    FichierCopy = "C:\chemin\copyfichier.txt"
    
    If Dir(Fichier) = "" Then
        MsgBox "le fichier " & Fichier & " n'existe pas", vbCritical
        Exit Sub
    End If
    F = FreeFile
    F2 = FreeFile
    
    
    Open Fichier For Input As #F Len = 1
    
        Open FichierCopy For Append As #F2
    
    Do Until EOF(F)
        
        Line Input #F, strLine
        If InStr(1, strLine, "2010") = 0 _
        And InStr(1, strLine, "2011") = 0 _
        And InStr(1, strLine, "2012") = 0 Then
            
            Print #F2, strLine
        
        End If
    
    Loop
    Close #F
    Close #F2
End Sub