XL 2010 messagebox

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Intersect([H7:H35], Target) Is Nothing Then
        Magasin = Cells(Target.Row, "D")                                                ' Mémorisation du magasin
        If Magasin <> "" And Application.CountIf([E59:E64], Magasin) > 0 Then           ' Si magasin présent dans la liste
            Qté = Application.VLookup(Magasin, [E59:F64], 2, False)                     ' Vérification quantité disponible
            If Qté < Target Then MsgBox " ATTENTION il faut changer de depôt": Exit Sub ' Alerte si Qté demandée supérieure à quantité disponible
        End If
        Application.OnKey Key:="~", procedure:="retour_colonneC"
    End If

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    ' Vérification du stock vs le dépot
    If Not Intersect([H7:H35], Target) Is Nothing Then
        Magasin = Cells(Target.Row, "D")                                                ' Mémorisation du magasin
        If Magasin <> "" And Application.CountIf([E59:E64], Magasin) > 0 Then           ' Si magasin présent dans la liste
            Qté = Application.VLookup(Magasin, [E59:F64], 2, False)                     ' Vérification quantité disponible
            If Qté < Target Then MsgBox " ATTENTION il faut changer de depôt": Exit Sub ' Alerte si Qté demandée supérieure à quantité disponible
        End If
    End If
    
    Dim Colonne As Integer
    Dim Adresse As String
    ... suite du code