Recherche valeur dans une colonne déterminée

Ta macro fonctionne parfaitement quand la fiche existe; de plus comme j'ai 2 feuilles où je voulais utiliser la fonction recherche je peux le faire en une fois car ta macro recherche sur mes 2 feuilles.
Par contre si la fiche n'existe pas encore ta macro plante sur la ligne:
MsgBox "Aucune fiche trouvée.", " Message "
Je vais essayer de modifier ta macro pour que le résultat de la recherche soit encadrer comme avec ma macro de départ car ta macro donne sous forme de texte l'emplacement de la fiche recherchée. Mais cela me conviens ainsi.
Je te remercie.
Amicalement.

Ta macro recherche des réponses dans toutes les feuilles de mon programme et pas uniquement sur la feuille de travail.

J'ai modifier ma macro avec ton aide (je préfère avoir le résultat sous cette forme plutôt que le résultat donné par ta macro).
J'ai deux soucis:
1- si je ne choisi pas en début de macro ma feuille de travail la ligne de mon résultat trouvé est surligné en vert sur les deux feuilles en même temps
2- si je défini une seule feuille de travail (par ex mâles) ma macro fonctionne parfaitement pour un numéro de fiche contenu dans dans cette fiche et également pour un numéro qui n'existe pas du tout mais elle ne fait rien si le numéro se trouve sur l'autre feuille inactive (femelles) alors qu'elle devrait m'indiquer que la fiche n'existe pas.

Puis-je encore te solliciter ?

Ma macro :

Dim Mot As String
Dim Ws As Object
Dim Nbre As Long
Dim Cycle As Long
Dim Trouvé As Variant
Dim CellAddress As Variant
Dim MyValue As String


Worksheets("Mâles").Select

'remets colonne O en blanc
Columns("O:O").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
'remet colonne O ligne titre en gris
Range("O1:O3").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.249946592608417
.PatternTintAndShade = 0
End With

'Définition de la variable à rechercher
Mot = InputBox("Saisir le N° de fiche à chercher.", Title:="Recherche")
'Vérification si existante
If Mot = "" Then Exit Sub
For Each Ws In Worksheets
Nbre = Nbre + Application.CountIf(Ws.UsedRange, "=" & Mot)
Next Ws
'Message en cas de mot inexistant
If Nbre = 0 Then
MyValue = MsgBox(" La fiche " & Mot & " n'est pas enregistrée ", vbOKOnly, " Message ")
Else
Cycle = 0
'Recherche et arrêt sur les cellules contenant le Mot
For Each Ws In Worksheets
With ActiveSheet
.Activate
Set Trouvé = .Columns(15).Find(Mot, , xlValues, xlWhole)
If Not Trouvé Is Nothing Then
CellAddress = Trouvé.Address
Do
Trouvé.Activate
MyValue = MsgBox(" La fiche " & Mot & " a été trouvée ", vbOKOnly, " Message ")
'colorier la case du résultat en vert
With Selection.Interior
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Exit Sub
If MyValue = vbNo Then Exit For
Set Trouvé = .Columns(15).FindNext(After:=Trouvé)
Loop While Not Trouvé Is Nothing And Trouvé.Address <> CellAddress
End If
End With
Next Ws
End If