Microsoft 365 Probleme format VBA

For Each cell In plage
    cell.Value = Application.Trim(cell.Value)
    cell.Value = Replace(cell.Value, ".", "")
    cell.Value = Format(cell.Value, "0.00")
Next cell

Set plage = Range(Cells(11, 5), Cells(derlig, 12))

For Each cell In plage
    cell.Value = Replace(cell.Value, ",", "") 'on supprime le séparateur de milliers
    cell.NumberFormat = "# ##0.00" 'on applique le format
Next cell

For Each cell In plage
cell.Value = Application.Trim(cell.Value)
Next cell

Sub test()
'
Dim plage As Range
Dim derlig As Long
Dim dc As Long, ic As Long

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Range("A1").Select

    dc = Sheets("test").Cells(9, Columns.Count).End(xlToLeft).Column
    For ic = dc To 1 Step -1
        If Sheets("test").Cells(9, ic) = "" Then Sheets("test").Columns(ic).Delete
    Next

    derlig = Range("a" & Rows.Count).End(xlUp).Row
    Set plage = Range(Cells(7, 5), Cells(derlig, 12))

    For Each cell In plage
        With cell
            .Value = Trim(Replace(Replace(.Value, ",", ""), ".", ","))
            If .Value <> "" And IsNumeric(.Value) Then
                .NumberFormat = "# ##0.00"
                .Value = .Value * 1
            End If
        End With
    Next cell

    For Lig = [a65536].End(xlUp).Row To 1 Step -1
        If Len(Range("a" & Lig)) <> 9 Then Rows(Lig).Delete
    Next

    Range("A1").Select
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = False

End Sub