Re
mais oui cela marche. Toi tu as que une valeur en A1 et rien de plus
Ajoute qqc en A2 et cela marchera.
Pour regler ce problème, inverse le end(xl...) exemple, au lieu de chercher de haut en bas, cherche de bas en haut:
Range("A1:A" & Range("A65536").End(xlUp).Row).Select
Bonne journée
@Christophe@