Message d'erreur

Bonjour,

Je cherche à créer une macro qui, lors d'un changement de valeur d'une cellule de la colonne A, renseignerait automatiquement une formule dans la cellule adjacente. J'ai donc ceci:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then
thisrow = Target.Row
If Target.Value <> "" Then
Range("B" & thisrow).FormulaLocal = "=RECHERCHEV(A" & thisrow & ";Liste!A:B;2;0)"
End If
End If
End Sub

Mon problème est que lorsque je sélectionne puis supprime une plage de plusieurs cellules dans la colonne A, je reçois un message d'erreur.
Quelqu'un pourrait venir à mon secours svp? ^^