Désactivation des validations de données par une macro évènement

Bonjour,

Dans le fichier joint, j'ai adapté une macro élaborée par THEV (membre du forum).

Elle est insérée dans le Thisworkbook (Selection change).

Sur l'onglet visible, en objet, la sélection d'une "réunion", s'inscrit dans la cellule active, dans la cellule située à gauche, l'heure s'affiche atuomatiquement. Une liste est également installée en colonne E.

Un bouton hyperlien permet d'ajouter un bouton prédéfini dans la cellule active. La macro évènementielle du thirsworkbook, efface sous conditions, des shapes dans la plage "D14:D100".

Cela fonctionne parfaitement sauf...

Depuis l'inscription de la macro évènementielle, l'insertion d'une forme (manuellement ou au moyen du bouton hyperlien), désactive la validation de données, de la colonne 'OBJET" et de celle "SUITE DONNEE", et l'insertion de l'heure automatique en colonne B.

Merci pour l'aide que vous pourriez m'apporter

Le code ci-après fonctionne parfaitement :

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim S As Shape
    On Error GoTo suite
    For Each S In ActiveSheet.Shapes
        If Not Intersect(Range("D14:D107"), S.TopLeftCell) Is Nothing Then
            If S.AutoShapeType <> msoShapeRectangle Then S.Delete
            If S.TextFrame2.TextRange.Characters.Text <> "Lien" Then S.Delete
            If S.ShapeStyle <> msoShapeStylePreset31 Then S.Delete
        End If
        Next S
suite:
        If Range("D14:D107") Is Nothing Then Exit Sub
    End Sub