recherche mot clé dans un classeur

[philest]

Salut à tous

je galère sur ma macro. j'ai besoin d'aide.
un raccourci clavier (ctrl + i)lance ma macro
ci-dessous qui fait la recherche du mot selectionné de la cellule active dans la feuille toute entière. lorsqu'il trouve plusieurs occurences identiques, il selectionne les lignes entières et copies toutes lignes dans la feuille Conso. Mon problème c'est que je voudrais que cette recherche s'effectue sur toutes les feuilles de mon classeur. et là je cale...

merci pour votre aide, c'est super urgent

philest
(nouveau dans ce forum génial) [file name=Recherche_20060609163118.zip size=40881]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Recherche_20060609163118.zip[/file]

 

[Marc77]

Bonsoir Philest et le forum

Je pense avoir compris ta demande
Sheets('a').Select
Selection.Copy
Sheets('Conso').Select
Columns('A:A').Select
Selection.Find(What:='', After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Select
ActiveSheet.Paste
Sheets('b').Select
Selection.Copy
Sheets('Conso').Select
Columns('A:A').Select
Selection.Find(What:='', After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Select
ActiveSheet.Paste
Sheets('x').Select
Selection.Copy
Sheets('Conso').Select
Columns('A:A').Select
Selection.Find(What:='', After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Select
ActiveSheet.Paste
Sheets('y').Select
Selection.Copy
Sheets('Conso').Select
Columns('A:A').Select
Selection.Find(What:='', After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Select
ActiveSheet.Paste
Sheets('z').Select
Selection.Copy
Sheets('Conso').Select
Columns('A:A').Select
Selection.Find(What:='', After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Select
ActiveSheet.Paste
End Sub

Marc