Sub Bouton1_QuandClic()
Dim c As Range
Dim valeur As String
valeur = ActiveSheet.OLEObjects('ztx_ref').Object.Text
Set c = Range('a1:a' & Range('a65536').End(xlUp).Row).Find(valeur, LookAt:=xlWhole)
If Not c Is Nothing Then
ActiveSheet.OLEObjects('ztx_ligne').Object.Text = c.Row
Else
ActiveSheet.OLEObjects('ztx_ligne').Object.Text = 'Pas de correspondance trouvée.'
End If
End Sub