Macro sélection cellule jusqu'à une cellule nommée

Bonjour

J'aimerais faire une macro qui démarre d'une cellule connu (ex : A1) et qui sélectionne toutes les cellules d'une même colonne mais qui s'arrête à la cellule contenant le mot "conso".

Dans le but de copier ma sélection en C1.

Mon nombre de ligne peut varier c'est pour cela qu'il faut que ma sélection s'arrête au mot "conso"

D'avance merci pour votre aide

Bonjour

Avec ce code à tester

Sub Macro1()
Dim lg As Integer
With ActiveSheet
    lg = .Range("A:A").Find(What:="Conso", LookIn:=xlValues, LookAt:=xlWhole).Row
    .Range("A1:A" & lg).Copy .Range("C1")
End With
End Sub

Cordialement

Franchement Dan Bravo !!

Je n'avais pas le LookAt:=xlWhole

Génial, je te remercie très sincèrement !