Sub La_Macro_qui_prend_du_temps()
      
      'Fermer les fenêtres modales avant l'appel du Userform USFWait
      USFWait.Show 0
      USFWait.Repaint
       
      'code macro
      'fin
     
      Unload USFWait
    End Sub

'Dans l'Userform USFWait, placer le code suivant
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  If CloseMode = vbFormControlMenu Then Cancel = True
End Sub