Bogue sur quizz ping13

Bonjour,

Ce matin en voulant ajouter des questions au quizz que j'ai créé avec l'aide de MIKE31
et CCM81 un bogue est apparu et bien sur problèmes:

Une fenètre me donne le message suivant:
erreur d'exécution '9':
L'indice n'apparait pas à la sélection

Dans le code ci-dessous la ligne 4 : lifinBD = Sheets(FBD).Cells(Rows.Count, codebBD).End(xlUp).Row apparait en jaune

Private Sub CommandButton1_Click()
Dim lifinBD As Long, nbq As Long
' dernière ligne BD
lifinBD = Sheets(FBD).Cells(Rows.Count, codebBD).End(xlUp).Row
' nombre de questions
nbq = lifinBD - lidebBD + 1
' nettoyage plage formulaire
Range(plageF).ClearContents
' tirage au sort du numéro de question
Randomize
Range(qF).Value = 1 + Int(Rnd * nbq)
End Sub

Merci pour votre aide
Crdlt