XL 2019 Gérer la boite de dialogue "insérer une fonction" durant les saisies ?

Application.ScreenUpdating = False        'Bloque le rafraichissement d'écran
Application.Calculation = xlCalculationManual     'Bloque le recalcul
Application.EnableEvents = False        'Bloque les evenements

'Ton code
'Blablabla
'Blablabla
'Blablabla

Application.ScreenUpdating = True         'Facultatif
Application.EnableEvents = True         'Réactive les evevnements indispensable si Application.EnableEvents = False
Application.Calculation = xlCalculationAutomatic'Reactive le calcul automatique

Option Explicit

Sub Mon_Test()
Dim MaSaisie

Do
    MaSaisie = InputBox("Saisissez un nombre. Si rien ==> annule la demande", "Saisie nombre")
Loop While MaSaisie <> "" And Not IsNumeric(MaSaisie)

If MaSaisie <> "" Then
    'Suite du code si un nombre est saisie
Else
    'Si rien de saisie ==> procédure à prévoir
End If

End Sub

Public Sub SpeedOn(Status As Boolean)

On Error GoTo ErrHandler

  With Application
      Select Case Status
          Case Is = True
              .Calculation = xlCalculationManual
              .ScreenUpdating = False
              .EnableEvents = False
              .DisplayAlerts = True 'False
              .Cursor = xlWait
              .StatusBar = True 'False
' Ci-dessous, pas mis Disable pour tentative d'interception (Err.Number = 18) .
              .EnableCancelKey = xlErrorHandler
          Case Else
              .Calculation = xlCalculationAutomatic
              .ScreenUpdating = True
              .EnableEvents = True
              .DisplayAlerts = True
              .Cursor = xlDefault
              .StatusBar = True
              .EnableCancelKey = xlInterrupt
      End Select
  End With
Exit Sub

ErrHandler:

'''''  Ligne juste pour debug
If Err.Number = 18 then Stop
Debug.Print "SpeedOn: "; Err.Description, Err.Number
'''''''''
    Err.Clear
    Resume Next
End Sub