XL 2019 Barre de progression

Private Sub RAZ(Adr$)
'Donc je recycle ce que j'avais  pondu en 2018 ;-)
'https://www.excel-downloads.com/threads/exporter-un-classeur.20024896/#post-20187464
Dim arrWSN() As String, i%
ReDim arrWSN(1 To Sheets.Count)
For i = 1 To Worksheets.Count
arrWSN(i) = Sheets(i).Name
Next i
Set Rng = Sheets(1).Range(Adr)
Rng.Clear
Worksheets(arrWSN).FillAcrossSheets Rng
End Sub
Sub test()
RAZ "A1:K150"
RAZ "A1:N575"
RAZ "A1:Q99"
End Sub

'on les rempli dans une plage address aléatoire minimum 400000 lignes et minimum 10  colonnes
Sub test()
    Application.ScreenUpdating = False
    For i = 2 To 14
        x = Round(40000 + (Rnd * 25000))
        c = Round(10 + (Rnd * 5))
        With Sheets(i)
            .Select
            .Range("A1", Cells(x, c)).Value = 1
        End With
    Next
End Sub

'maintenant on les vides
Sub test2()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = 1 To 14
txt = txt & "feuille" & i & "  " & Sheets(i).[A1].CurrentRegion.Address & vbCrLf
Sheets(i).[A1].CurrentRegion.ClearContents
Next
Application.Calculation = xlCalculationAutomatic
MsgBox txt & vbCrLf & "terminé"

End Sub

Sub AffProgressStatusBar2(ValEnCours As Variant, ValMaxi As Variant) 'patrick
    Dim A&, Bar$, LongBar&
    LongBar = 120 'long.bar en terme de caractere
    A = ValEnCours / (ValMaxi / LongBar) 'calcul index(situation bar) par rapport à ValEnCours iteré à partir de 1 dans la boucle
    Bar$ = String(A, Chr$(8)) & String(LongBar - A, Chr$(7)) 'creation du string
    Application.StatusBar = " <|" & Bar$ & "|> " & Int((A + 0.1) * 100 / LongBar) & " %/100" '(0.1)évite div.zero
    DoEvents
End Sub

Sub Tabula_Rasa()
Dim i&
On Error Resume Next
For i = 1 To Worksheets.Count
Sheets(i).UsedRange.Value = Empty
Sheets(i).DrawingObjects.Delete
Next i
End Sub