Existence des feuilles

Sub recherche_nom_onglet()
    Dim sh As Worksheet
    Dim Flg_Ok As Boolean
    Dim Manque
    
    On Error GoTo suite     'erreur si manquante
    'boucle sur onglets Donnee
    For Each sh In Worksheets
        If sh.Name Like "Donnees*" Then
            Flg_Ok = False
            wsh = sh.Range("B3")        'nom onglet
            If wsh <> "" Then              'un nom
                If Not IsError(Sheets(wsh)) Then Flg_Ok = True  'existe
            Else
                Flg_Ok = True: Manque = Manque & "[B3 vide: " & sh.Name & "]--"     'pas de nom de feuille
            End If
suite:
            If Not Flg_Ok Then
                Manque = Manque & "[Pas de feuille: " & wsh & "]--"     'onglet manqant
            End If
        End If
    Next
        If Manque <> "" Then rep = MsgBox(Manque, , "Nom de feuilles manquantes ou pas de nom de feuilles")
End Sub