If Target = 2 Then

Bonjour,

Afin d'exectuer une macro via un menu déroulant j'ai utilisé cette macro.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
If Target = 2 Then
Call Menu_déroulant
End If
End Sub

Cependant lorsque j'insère une ligne/supprime une ligne le message d'erreur suivant apparaît :

Erreur d'exectuion '13':
Incompatibilité de type

Comment puis-je solutionner la chose ?

Merci.