Microsoft 365 Bug dans export TXT

Sub EnregistrerTabCogilogEntxt()
Dim nomfeuille$, fn$, ff$, test As Boolean
nomfeuille = ActiveSheet.Name
fn = ThisWorkbook.FullName
ff = ThisWorkbook.FileFormat

On Error Resume Next '<=== Ajout d'une gestion d'erreur
ChDir ThisWorkbook.Path

test = Application.Dialogs(xlDialogSaveAs).Show(nomfeuille, xlTextMac)
If Not test Then Exit Sub
ActiveSheet.Name = nomfeuille
Application.DisplayAlerts = False
ThisWorkbook.SaveAs fn, ff
MsgBox "Fichier texte créé..."
End Sub

Sub EnregistrerClientEntxt()
    Dim c As Range, x$, nomfeuille$, test As Boolean
    Application.ScreenUpdating = False
    ActiveSheet.Copy
    For Each c In ActiveSheet.UsedRange
        x = c.Text
        If InStr(x, "€") Then c = x
    Next
    nomfeuille = ActiveSheet.Name
    ChDir ThisWorkbook.Path
    test = Application.Dialogs(xlDialogSaveAs).Show(nomfeuille, xlTextWindows)
    ActiveWorkbook.Close False
    If test Then MsgBox "Fichier texte créé..."
End Sub

Sub EnregistrerClientEntxt()
    Dim c As Range, x$, nomfeuille$, test As Boolean
    Application.ScreenUpdating = False
    ActiveSheet.Copy
    For Each c In ActiveSheet.UsedRange
        x = c.Text
        If InStr(x, "€") Then c = x
    Next
    nomfeuille = ActiveSheet.Name
    ChDir ThisWorkbook.Path
    test = Application.Dialogs(xlDialogSaveAs).Show(nomfeuille, xlTextMac)
    ActiveWorkbook.Close False
    If test Then MsgBox "Fichier texte créé..."
End Sub