Mon fichier se met en lecture seule et m'oblige à faire une "Copie de ..."

Sub KonvertierenBIS()
Dim wbkS As Workbook
Dim Chemin As String, NomFic As String
Dim LetzteZeile As Long


Chemin = ThisWorkbook.Path & "\"
NomFic = "Chiffres.xlsx"


On Error Resume Next
Workbooks("Chiffres.xlsx").Close
' conversion d'un fichier brut généré par l'ERP :
Workbooks.OpenText Filename:="C:\Users\STAPLE\Documents\rawfile", Origin:= _
        xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
        , ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:= _
        False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1) _
        , Array(3, 1), Array(4, 1), Array(5, 1)), TrailingMinusNumbers:=True
Set wbkS = ActiveWorkbook
With wbkS
    With .Sheets(1)
        .Name = "Chiffres"
        .Range("A1:C1") = [{"Mois","Année","Période"}]
        ' je colle en entête de colonne le titre des rubriques
        End With
        LetzteZeile = .Sheets("Chiffres").Range("A" & Application.Rows.Count).End(xlUp).Row
        MsgBox LetzteZeile 'ici pour test
     'ici l 'enregistrement : le fichier brut généré par l'ERP est enregistré en .xlsx
    .SaveAs Chemin & NomFic, 51
' et ici il me maque tes fichiers exemples pour faire mes tests
End With

Set wbkS = ActiveWorkbook et avec .SaveAs Chemin & NomFic, 51