Re : récuperation données + COULEUR
Merci beaucoup ...j'ai re adapté ton code pour plusieurs feuille ( nommées ici 1,2,3,4,5 ) et cela fonctionne parfaitement bien , je joint la correction apportée au cas ou cela pourrait servir a d'autres :
Sub apres()
For Each f In Array(1, 2, 3, 4, 5)
Sheets(f).Select
For Each c In [e4:J1000]
On Error Resume Next
c.Resize(2, 1).Interior.ColorIndex = _
[Activité].Find(c, LookAt:=xlWhole).Interior.ColorIndex
Next c
Next f
For Each o In Array(1, 2, 3, 4, 5,)
For Each c In Sheets(o).Range("A1:A24").Cells
c.Interior.ColorIndex = _
[Activité].Find(c, LookAt:=xlWhole).Interior.ColorIndex
Next c
Next o
End Sub