Probleme choix aléatoire d'une ligne

Bonjour, dans le code ci-dessous je voudrais qu'il fasse un choix aléatoire mais seulement des lignes non vides.

Donc ne pas tenir compte par exemple des lignes " 25, 66,356, 5900, et de plein d'autres qui ne contiennent rien ."

Merci tout plein..

Option Explicit
Option Private Module
Public Sub LigneHasard()
Dim objList As ListObject
Dim lrow As Long
Dim lRnd As Double

Set objList = Feuil1.ListObjects(1)
With Feuil2
lrow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Randomize
lRnd = Application.RandBetween(1, 25000)
objList.ListRows(lRnd).Range.Copy .Cells(lrow, 1)
End With

Set objList = Nothing

End Sub

Bonjour

Puisque tu as un fichier, pourquoi ne je joins-tu pas ?

Bye !

Bonjour , je n'ai pas joint le fichier parce-que cela demanderais beaucoup plus d'infos ,

mais bon je vous les donnes:

sur la feuille B le module " révision des mots ratés" va rechercher sur la feuille 1

des mots que j'ai mis en mémoire avec le module" mots ratés " .

Je ferai après " suppression des mots ratés appris", qui lui me supprimeras des ligne ou me laisseras

des cellules vides (à moins que vous ayez une autres solution) .

De plus je ne sais pas combien de mot je vais mettre dans la liste "mots ratés"

donc je ne sais pas comment rédiger la ligne "lRnd = Application.RandBetween(1, 41)" parce-que

je ne sais pas combien de mots je vais mettre dans cette liste ou je vais avoir des lignes ou cellules vides quand

je les supprimerais une fois appris.

Je ne sais pas si je suis assez clair ,mais merci d'avance

juan.