Amadéus a écrit :
ou Col A : Range("A9:A" & [A65000].End(xlUp).Offset(-1, 0).Row).Select
Coder en dur la cellule de référence pour la propriété End n'est pas vraiment opportun :
Excel 2003 pouvant déjà atteindre 65 536 lignes et à partir de la version 2007 c'est plus d'un million de lignes ‼
Pour fonctionner à coup sûr quelle que soit la version d'Excel, mieux vaut indiquer la dernière cellule de la colonne :
Range("A9", Cells(Rows.Count, 1).End(xlUp).End(xlUp)).Select
Et avec l'Offset c'est -2 !
Sinon en référence type Cells (ok en 2003 mais peut coincer avec des versions récentes) :
Range("A9", Cells(Rows.Count, 1).End(xlUp)(-1)).Select
Ici dans la disposition des données du fichier joint comme déjà évoqué il y a bien bien plus simple :
[A9].CurrentRegion.Select
…
Mais sélectionner en tant que tel ne sert à rien à part ralentir inutilement le code !
Surtout pour sélectionner une cellule la feuille de calculs doit être active.
Alors que par exemple s'il s'agit de modifier le format de la plage de cellules,
la feuille n'a même pas besoin d'être active en accédant directement aux objets (cellules ici)
en précisant dans le code devant la référence de la plage la feuille de calculs !
En attente donc d'une présentation claire et exhaustive du demandeur …