With ActiveSheet.UsedRange
.Rows("10:" & .SpecialCells(xlCellTypeLastCell).Row).Select
End With
est-ce que cela te va ??
attention xlcelltypelastcell donnera la dernière cellule de usedrange
pour obtenir réellement la dernière cellule non vide, utiliser une instruction comme suit
Cells.Find("*", , xlValues, xlWhole, , xlPrevious, False).Select
d'autres infos notamment sur <http://dj.joss.free.fr/faq.htm>
bye
STéphane