Do While InStr(ActiveCell.Address, "$A$") <> 1
        ActiveCell.Offset(0, -1).Select
Loop

Cette boucle sélectionne la colonne précédente jusqu'à la première colonne, c'est-à-dire celle qui a une adresse commençant par '$A$'.

La procedure suivante permet de faire la même chose de façon optimisée.

Sub selectQuicklyFirstColumn()
    i = 0
    Do While InStr(ActiveCell.Offset(0, i).Address, "$A$") <> 1
        i = i - 1
    Loop
    ActiveCell.Offset(0, i).Select
End Sub

Ici, la sélection ne s'effectue qu'une fois le bon indice 'i' trouvé. Cela accélère considérablement l'exécution.