Collecte et insertion d'information

Bonjour! :)
Etant débutant en VBA, Je sollicite votre aide pour créer une macro, qui me permettra de chercher au niveau de toutes les feuilles du document excel, les cellules peintes en rouge ,ainsi qu'insérer dans une nouvelle feuille chacune des cellules en question et toute la ligne ou elles se situent. Merci! c Urgent :help:

Code:

---

1 2 3 4 5 6

Dim sh as worksheet For each sh in worksheets For i = 1 to sh.range("A" & rows.count).row For j = 1 to sh.cells(columns.count,1).column If sh.cells(i,j).interiorcolor=RGB(255,0,0) then '....

---

ca me sort plein d'erreur variable objet ou variable de bloc with non définie :(