Bonjour
Si les remplies sont consécutives, tu peux compter en VBA pour déterminer ta plage remplie avec
x = WorksheetFunction.CountA(Range("A1:A28"))
s'il y a des données après la ligne 28,
sinon
x = Cells(Rows.Count, 1).End(xlUp).Row
mais inutile en général car en triant tout les vides restent à la fin