Message manque bibliotheque
gs_Msg = gs_Ori & " - " & gs_Ver
Call ShowShape(gs_Msg & vbLf & "Merci de patienter.", FontSize:=ws_Home.Range("AO2").Value)
Application.Cursor = xlWait
Application.Wait Time + TimeSerial(0, 0, 1.6) <---- time erreur
gs_Qtr = True
Il faut vérifier dans le VBE (ALT+F11) et vérifier les lignes dans le tableau référence par Menu => Outils => Références
Si une ligne est marqué "MANQUANT", il faut ajouter l'OCX inscrit dans la ligne en bas de la fenêtre.
Regardez dans la descirption de la mise à jour de décembre, tout est indiqué.
Bonne découverte.
Vincent