Recherche cellule nommée VBA

Sub Macro2()
For Each cell In ActiveSheet.UsedRange
If cell.Value = [taux] Then
cell.Font.Bold = True
MsgBox "Valeur cherchée : " & [taux] & Chr(13) _
& "Valeur trouvée dans la cellule: " & cell.Address(0, 0)
End If
Next
End Sub

[LEFT]Sub Macro1()
quoi = [taux]' cellue nommée
Cells.Find(What:=quoi, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate[/LEFT]
 
[LEFT]End Sub[/LEFT]