recherche sur plusieurs feuilles

Private Sub Worksheet_Change(ByVal Target As Range)
Dim f As Byte 'décalre la variable f
Dim li As Byte 'déclare la variable li
Dim nc As Variant 'déclare la variable nc
 
If Target.Address <> "$D$1" Then Exit Sub 'si le changement n'a pas lieu en D1, sort de la procédure
If Target.Value = "" Then Target.Offset(1, 0).Value = "": Exit Sub 'si on efface D1, D2 est éffacé aussi
 
nc = Target.Value 'définit la variable nc
 
For f = 1 To 150 'boucle 1 : sur 150 onglets
    With Sheets(f) 'prend en compte l'onglet de la boucle
 
        'boucle 2 : sur les lignes 2 à 150 de l'onglet pris en compte
        For li = 2 To 150
            If .Cells(li, 1).Value = nc Then 'condition : si la valeur de la cellule correspond au numéro édité en D1
                ActiveSheet.Range("D2") = Sheets(f).Name 'écrit en D2 le nom de l'onglet correspondant
                GoTo fin 'sort de la procédure via la balise "fin"
            End If 'fin de la condition
        Next li 'prochaine ligne de la boucle 2
 
    End With 'fin de la prise en compte de l'onglet
 
Next f 'prochain onglet de la boucle 1
 
MsgBox "ce numéro de facture n'existe pas" 'ce message apparaît si tous les onglets on été vérifiés
ActiveSheet.Range("D1").Select 'sélectionne la cellule D1 (pour une éventuelle nouvelle édition ou pour être effacée)
 
fin: 'balise
 
End Sub

Sub Macro1()
Dim cel As Range 'déclare la variable cel (CELlule)
Dim sh As Worksheet 'déclare la variable sh (SHeet)
Dim r As Range 'déclare la variable r (Recherche)
 
'boucle 1 sur toutes les cellules de la colonne B de l'onglet "Mandats"
For Each cel In Sheets("Mandats").Range("B2:B" & Sheets("Mandats").Range("B65536").End(xlUp).Row)
    For Each sh In Sheets 'boucle 2 sur tous les onglets du classeur
        If sh.Name <> "Mandats" Then 'condition : si l'onglet a un autre nom que "Mandats"
            Set r = sh.Columns(2).Find(cel.Value, sh.Range("B1"), xlValues, xlWhole) 'définit la variable r
            If Not r Is Nothing Then GoTo suite 'si il existe au moins une occurrence de r, va à l'étiquette "suite"
        End If 'fin de la condition
    Next sh 'prochain onglet du classeur (boucle 2)
    'si le code arrive ici c'est que le mandat n'a pas éé trouvé nulle part...
    MsgBox "le mandat " & cel.Value & " n'a pas été classé !" 'message
    cel.Interior.ColorIndex = 3 'colorie la cellule en rouge (tu supprimeras si ça ne vas pas)
 
suite: 'étiquette
Next cel 'prochaine cellule de la boucle 1
End Sub