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