XL 2016 Infobulles au passage de la souris

Private Sub Workbook_Activate()
'ActiveSheet.Protect UserInterfaceOnly:=True
End Sub
Public Function Protection()
   ActiveSheet.Protect UserInterfaceOnly:=True
End Function
Public Function DeProtection()
    If ActiveSheet.ProtectContents Then
           ActiveSheet.Unprotect
    End If
End Function
Private Sub Workbook_Open()
   ActiveSheet.Protect UserInterfaceOnly:=True
End Sub

Sub over(shap, msg)
    If shap.Name = prevShape Then Exit Sub
    With ActiveSheet
        With mask: .Visible = True: .Left = 0: .Top = 0: _
             .Width = 1200: .Height = 1000: .BackStyle = 0
        End With
        With comm: .Caption = msg: .Visible = True: .Top = shap.Top - 15: _
             .Left = shap.Left + (shap.Width / 2)
        End With
    End With
    prevShape = shap.Name
End Sub

Private Sub mask_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    ActiveSheet.mask.Visible = False
    ActiveSheet.comm.Visible = False
    prevShape = ""
End Sub

Private Sub Image1_Click():  ActiveSheet.comm.Visible = False: EnvoyerMail: End Sub