Rechercher une valeur dans plusieurs onglets pour acceder directement a cette valeur

Private Sub Cde_Corresp_Click()
Dim F As Worksheet, X As Long
For Each F In Sheets
    If F.Name <> "Feuil1" And F.Name <> "modif" Then
        For X = 1 To F.Cells(Rows.Count, "B").End(xlUp).Row
            If F.Cells(X, "A") = Range("A10") Then
                If F.Cells(X, "B") = "modif" Then
                    Range("C10") = F.Cells(X, "C")
                Else
                    Range("C10") = "Pas de modif"
                End If
                Exit Sub
            End If
        Next X
    End If
Next F
End Sub
Private Sub Cde_Modif_Click()
Dim F As Worksheet, F_M As Worksheet, X As Long
Set F_M = Sheets("modif")
F_M.Rows("1:" & F_M.Cells(Rows.Count, "A").End(xlUp).Row).Delete
For Each F In Sheets
    If F.Name <> "Feuil1" And F.Name <> "modif" Then
        For X = 1 To F.Cells(Rows.Count, "B").End(xlUp).Row
            If F.Cells(X, "B") = "modif" Then F.Rows(X).Copy F_M.Cells(Rows.Count, "A").End(xlUp)(2)
        Next X
    End If
Next F
F_M.Rows(1).Delete
F_M.Activate
End Sub

Private Sub Cde_Recherche_Click()
Dim F As Worksheet, X As Long
For Each F In Sheets
    If F.Name <> "Feuil1" And F.Name <> "modif" Then
        For X = 1 To F.Cells(Rows.Count, "B").End(xlUp).Row
            If F.Cells(X, "A") = Range("A3") Then
                F.Activate
                F.Cells(X, "A").Activate
                Exit Sub
            End If
        Next X
    End If
Next F
End Sub