Rechercher valeur

Bonjour, je cherche à trouver une valeur dans une feuille à partir de la colonne B et sur le nombre de colonne disponible et cela que sur la ligne 1.

    Dim ValCherche As String

    Dim x As Range

    ValCherche = Cat.value

    With Sheets("Feuil1")

    Set x = Rows(1).Find("ValCherche ", , xlValues, xlWhole)

    If Not x Is Nothing Then MsgBox x.Column

    End With

Bien évidemment aucun résultat

Je voudrais ensuite collé dans cette colonne une nouvelle requête

Merci pour vos suggestions, aides.

Bonjour,

ValCherche est une variable , donc pas de guillemet dans la ligne Find

Cdlt

Merci Arturo83 pour ta réponse.

J'ai supprimé les guillemets mais sans résultat sur MsgBox x.Column

ValCherche = Cat.value

Mais que vaut "ValCherche" ce qui revient à dire que vaut "Cat.value"