Par Vba, chercher valeur et sélectionner plage

Option Explicit
Sub Recher_place()
'Action de cette macro : Recherche places réservées
Dim x As String
Dim nombre As Integer
Dim c As Range
Dim firstaddress As String
x = ActiveCell.Value
nombre = Cells(ActiveCell.Row, 256).End(xlToLeft).Columns
Sheets('Feuil2').Select
With Worksheets('Feuil2').Range('B2:AF22')
    Set c = .Find(x, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstaddress = c.Address
        Do
            c.Font.ColorIndex = 3
            Set c = .FindNext(c)
&nbsp; &nbsp; &nbsp; &nbsp; Loop While Not c Is Nothing And c.Address <> firstaddress
&nbsp; &nbsp; End If
&nbsp;
End With
Range(firstaddress, Cells(c.Row, c.Column + nombre - 1)).Select

End Sub

Cliquez pour agrandir...

nombre = Cells(ActiveCell.Row, 256).End(xlToLeft).Columns

Cliquez pour agrandir...

Bonjour

ce code :

nombre = Cells(ActiveCell.Row, 256).End(xlToLeft).Columns

Cliquez pour agrandir...

donne la derniere valeur d'une ligne.
Salut

Cliquez pour agrandir...