Find sur cellules variables et plusieurs ongl

Bonjour,

j'ai une macro VBA dans Outlook qui analyse les fichiers Excel contenu dans mes mails. Ce sont des commandes et la macro vérifie simplement que le fichier est au bon format. Quand je l'execute, cette dernière m'exclue totalement de la macro tout ce qui ne correspond pas au format et n'accepte aucun # à la sortie papier. Je voudrai donc faire un Find sur le fichier entier mais je ne sais pas comment adapter pour vérifier des cellules variables dans les différents onglets. Seul le nombre d'onglets ne change pas (il y en a 3 qui sont nommés). Voici le code que j'ai rentré mais qui ne correspond pas à mes critères et qui ne marche pas

Function Cherche()
'Recherche du # caractère d'erreur d'impression
  Dim Plage   As Range
  Dim Cellule As Range
  Dim Posit   As Long
  
  On Error Resume Next
  Set Plage = Sheets("Feuil1").Range(Cells(1, 1), Cells(12, 8))
  For Each Cellule In Plage
    If Cellule.Value <> "" Then
      Posit = Application.WorksheetFunction.Find("#", Cellule.Value)
      If Posit > 0 Then
      End If
        Cellule.Activate
        Exit Function
      End If
    End If
  Next
  
End Function

Merci d'avance.

Cordialement