exixtance d'une feuille dans classeur

Private Sub CommandButton1_Click()
Dim i As Sheets

For Each Sheet In Worksheets
If Sheet.Name = 'Truc' Then
MsgBox 'la feuille existe !!', vbOKOnly, 'Oui ...'
End If

Next

End Sub

Function Test_Feuille(Nom As String) As Boolean
On Error Resume Next
If ActiveWorkbook.Sheets(Nom) Is Nothing Then Else Test_Feuille = True
End Function