atteindre un cellule en fonction de son contenu

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$18" Then Exit Sub
valeurCherchee = Round(Target.Value / 500) * 500
Set cellule = Rows([COLOR=Red][B]16[/B][/COLOR]).Find(valeurCherchee, , , xlWhole)
If Not cellule Is Nothing Then cellule.Select
End Sub

Private Sub ToggleButton1_Click()
Dim cont As Integer, i As Integer
cont = Feuil1.Shapes.Count
For i = 1 To Feuil1.Shapes.Count
    If Feuil1.Shapes(i).Name <> "ToggleButton1" Then
        If Feuil1.ToggleButton1.Value = True Then
            Feuil1.Shapes(i).Visible = msoFalse
        Else
            Feuil1.Shapes(i).Visible = msoTrue
        End If
    End If
Next
End Sub

Private Sub ToggleButton1_Click()
Dim cont As Integer, i As Integer

For i = [COLOR="Red"]Feuil1.Range("J58").Value To Feuil1.Range("J60").Value[/COLOR]
    If Feuil1.Shapes(i).Name <> "ToggleButton1" Then
        If Feuil1.ToggleButton1.Value = True Then
            Feuil1.Shapes(i).Visible = msoFalse
        Else
            Feuil1.Shapes(i).Visible = msoTrue
        End If
    End If
Next
End Sub