Problem macro recherche celulle vide

bonjour,

voila j'ai un petit problème dans mon code et je ne vois pas où...

lorsque je le lance pour repérer la premiere cellule vide de la colonne....au lieu de repérer la bonne celulle il me repère la celulle 20 lignes plus bas...

voici mon code:

Sheets("bd.entr_emb").Select
valeurA5 = Range("A5").Value
If valeurA5 = "" Then
Range("A5").Select
Else
Range("A5").Select
Selection.End(xlDown).Select
ligne_active_base = ActiveCell.Row
Range("A" & ligne_active_base + 1).Select

je ne comprends pas car ce code marche parfaitement avec un autre tableau....

il s'agit de mon cas d'un tableau: A4:J22...et mon code va en A25...a savoir que j'ai un autre tableau en A27:J45....ou mon code devra passer sa verification sur celui la si l'autre tableau est plein....bon ça je verrais plutard si déja j'arrivais a résoudre mon problème grace a vous ça sera super..

bonne journée tout le monde