Test de l'existence d'un nom de feuille

Sub CommandButton1_Click()
Dim C
For Each C In ThisWorkbook.Worksheets
    If C.Name = Sheets("BD Matériel").Range("Matériel").Value Then
        C.Activate
        Exit For
    End If
Next
End Sub

Sub test()
    Dim C
    On Error Resume Next
    For Each C In Sheets
        If C.Name = Sheets("BD Matériel").Name Then
        Sheets("BD Matériel").Select
            [matériel].Activate
        End If
    Next
End Sub

Sub CommandButton1_Click()
  Dim C As Worksheet, Est As Range
  For Each C In ThisWorkbook.Worksheets
    Set Est = Sheets("BD Matériel").Range("Matériel").Find(C.Name, , Lookat:=1)
    If Not Est Is Nothing Then
       C.Activate
       Exit Sub
    End If
  Next
  MsgBox "j'arrête.", , "N'y est pas,"
End Sub