Bonjour
Pour la première demande :
Sub test()
Dim c As Range, f%
For f = 1 To Sheets.Count
If Sheets(f).Name <> "Feuille statisitiques" Then
Sheets(f).Activate
Sheets(f).Range("b3:c" & Range("c" & Rows.Count).End(xlUp).Row).Select
For Each c In Selection
If c.Interior.ColorIndex = 43 Then
Feuil3.Cells(c.Row, f + 1) = Feuil3.Cells(c.Row, f + 1).Value + 1
If c.Column = 2 Then Feuil3.Cells(c.Row, 4) = Feuil3.Cells(c.Row, 4).Value + 1
If c.Column = 3 Then Feuil3.Cells(c.Row, 5) = Feuil3.Cells(c.Row, 5).Value + 1
End If
Next
End If
Next
End Sub
Pour la deuxième...Allez savoir! Je ne pense pas mais si quelqu'un ici y arrive je n'en serais pas surpris!