XL 2016 Erreur d'execution 1004 erreur definie par l'application ou par l'objet

Bonjour le forum,

Je rencontre un "bug" avec ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G7:G1006")) Is Nothing Then
Range("H" & Target.Row) = ""
With Range("H" & Target.Row).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=" & Target.Value
End With
End If
End Sub

Le tout fonctionne bien sauf quand j'efface la valeur en "G".
A ce moment là, j'ai un message : erreur d'execution 1004 erreur definie par l'application ou par l objet...

Y a t il une possibilité d'éviter ce bug qui m'oblige à chaque fois à ferme manuellement la boite de dialogue.

Cordialement,

PANTIN