Sub ChercheDonnees()
'
Dim Cellule As Range
Dim Colonne As Long
'
Set Cellule = Range('A:A').Find(what:='Lieu1', LookIn:=xlValues)
Colonne = Cells(Cellule.Row, 256).End(xlToLeft).Column
Range(Cells(Cellule.Row, Colonne), Cells(Cellule.Row, Colonne).End(xlDown)).Select
End Sub