Sub MonDébutDeCode()
Dim X As Range, Y As Range
Feuil8.Select
Set X = Cells.Find(ComboBox1.Text, , xlValues, xlWhole, , , False)
If Not X Is Nothing Then
Set Y = Cells(X.Row, "I")
MsgBox "Le nom cherché est """ & NomPlgContenant(Y) & """."
End If
End Sub
Function NomPlgContenant(ByVal Cel As Range) As String
Dim N As Name, R As Range
On Error Resume Next
For Each N In ActiveWorkbook.Names
Err.Clear: Set R = N.RefersToRange
If Err = 0 Then
If Not Intersect(N.RefersToRange, Cel) Is Nothing Then
NomChamp = N.Name: Exit Function: End If: End If: Next N
NomPlgContenant = "(aucun)"
End Function