Bonjour Zè, Jean-Marie, Pascal, Charles
Attention Jean-Marie, Zè, lorsque l'on parle de sélection, on ne peut sélectionner une cellule, si celle-ci ne se trouve pas sur la Feuille Active...
Je sais bien que c'est dans un soucis d'éviter un Select de plus, mais dans ce cas présent on Select, donc on Select à fond !! lol
Voici une autre alternative :
Sub PremiereCellVideEnPartantDuBas()
With Worksheets("Historique modifications")
.Activate
.Range("A65536").End(xlUp)(2).Select
End With
End Sub
Pour résumer pour Charles :
Sub PremiereCellVideEnPartantDuHaut() 'de Pascal et Jean-Marie
With Worksheets("Historique modifications")
.Activate
.Range("A3").End(xlDown)(2).Select
End With
End Sub
Sub PremiereCellVideDansLeTableau() 'de Zè
With Worksheets("Historique modifications")
.Activate
.Range("A3:A65536").Find("").Select
End With
End Sub
En fait ces deux dernières méthodes sont quasiment les même niveau résulat => Trouver la premiere cellule vide dans le Tableau (même au milieu de celui-ci)... Peut-être un poil plus rapide sur de grand tableau pour la "xlDown" qui est une fonction auto d'Excel, alors que le find va aller chercher pour de bon sur toutes les cellules...
Par contre la méthode "XlUp" trouvera la vraie première cellule vide en fin de tableau, même si le tableau contient des cellules vides dans son contenu...
Bon Appétit
@+Thierry