Sub Macro1()
Dim r As Range 'déclare la variable r (Recherche)
Set r = Sheets("ton_onglet").Cells.Find("Désignation", , xlValues, xlWhole) 'définit la variable r
If Not r Is Nothing Then r.Select 'si il existe au moins une occurrence, sélectionne r
End Sub
If Not r Is Nothing Then X = r.Column: Y = r.Row