Recherche sur plusieurs occurences

Bonjour à Tous,

Je cherche depuis un bon moment ( le week end complet) et je me résigne à demander de l'aide.

Je désire rechercher certaines occurences de la colonne D sur les feuilles Janvier à Décembre
et copier les valeurs trouvées des colonnes A à H des 12 feuiles sur la feuille Recherche

mon code dans la macro Recherche effectue bien ma recherche sur toutes les feuilles mais lorsque ma recherche trouve la premère occurence, elle passe à la feuille suivante

Ce que je cherche à faire c'est de tester la colonne D entièrement pour trouver éventuellement d'autres occurences

voici la macro que j'ai crée :
Sub Recherche()

Dim FinFichier As Long

'--------- Vide la feuille Recherche ------------------------
Sheets("Recherche").Select

Columns("A:H").Select
Selection.Delete Shift:=xlToLeft
FinFichier = Range("A65535").End(xlUp).Row
Range("A1").Select
Sheets("janvier").Select

'Rechercher toutes les occurences d'un mot au travers de Toutes les feuilles
mot = InputBox("Mot à rechercher ?")
'------- Commence à la Feuille Janvier et fini à la feuille Décembre --------
For feuille = 1 To 12
Sheets(feuille).Select: Set trouvé1 = Cells.Find(What:=mot)
If Not trouvé1 Is Nothing Then
trouvé1.Activate
'-------- Indique le N° de la Ligne Trouvée ----------------
NumeroLigne = ActiveCell.Row

Range("A" & NumeroLigne & ":H" & NumeroLigne).Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Recherche").Select
ActiveSheet.Paste
FinFichier = FinFichier + 1
Range("A" & FinFichier).Select
Sheets(feuille).Select

étiq:

Set trouvé2 = Cells.FindNext(After:=ActiveCell)
If trouvé2.Column <> trouvé1.Column Or trouvé2.Row <> trouvé1.Row Then
trouvé2.Activate
GoTo étiq
End If
End If
Next feuille
Sheets("Recherche").Select
End Sub

Les lignes dans les feuilles sont toutes identiques pour raison de confidentialité, veuillez m'en excuser

Merci à tous et bonne journée
Nanard25