Collect data from a multi-sheet workbook

[RIC63]

I have a multi sheets workbook (can be hundreds)
each sheet has the same structure ie column headings in the first 3 rows and data from row 4; each sheet always has 9 columns of data (A ÷ I).

I would like to search for a string, it can be alphanumeric containing characters such as / etc. in all the sheets that make up the workbook and for each occurrence found a new sheet 'Report' should be populated.
Each added line contains:

in column 1 cell B1 of the sheet in which the data was found,
in column 2 the cell C1 of the sheet in which the data was found,
in column 3 cell D1 of the sheet in which the data was found,

in the next 8 columns (D ÷ K) part of the record where the string was found (ie from column B to column I).
In the past I was given a code (see the FindAll function in the attached sample file) that had to do something like this but does not work correctly. It seems not to scroll through all the sheets of the workbook etc.
I am attaching a sample.xlms file where, assuming to search for the string 'idealsconfort' trought all the sheets except 'Report' ...in this last, you can see what a routine or function should return.

I thank you in advance for any useful suggestions to achieve this goal

thank you

Sample.xlsm
	E
2	Idealsconfort
Report