Probleme avec ligne de code if

Bonjour,

Voici mes lignes de codes mais ça fonctionne pas ,j'ai toujours un erreur 13 incompatibilité
sur la ligne : if [nb_enregistrements_bd] < [param_no_ligne] Then [param_no_ligne] = [param_no_ligne] - 1



Sub Supprimer_enregistrement()
If MsgBox("Confirmation de la suppression de l'enregistrement", vbYesNo, "Suppression") = vbYes Then
With Sheets("bd")
.Rows(Range("PARAM_NO_LIGNE").Value + 1).Delete shift:=x1Up
End With

If [nb_enregistrements_bd] < [param_no_ligne] Then [param_no_ligne] = [param_no_ligne] - 1

End If

End Sub
Mais toute le reste fonctionne
Merci
Daniel