J'ai réussi a modifier ce que tu m'as envoyé pour que les cellules soit choisi de base:
Sub test()
Sheets("Feuil1").Activate
Dim ma_selection, cel As Range
On Error Resume Next
Set ma_selection = ActiveSheet.Range(Cells(3, 4), Cells(11, 5))
For Each cel In ma_selection
cel.Interior.ColorIndex = IIf(cel.Value = "", xlNone, 3)
Next cel
End Sub
Par contre, je n'arrive pas le faire ce répéter sur les autres feuilles, j'avais pensé à ça, mais ça marche pas...
Sub test()
Sheets("Feuil1").Activate
Dim ma_selection, cel As Range
On Error Resume Next
Set ma_selection = ActiveSheet.Range(Cells(3, 4), Cells(11, 5))
For Each cel In ma_selection
cel.Interior.ColorIndex = IIf(cel.Value = "", xlNone, 3)
Next cel
Sheets("Feuil2").Activate
Dim ma_selection, cel As Range
On Error Resume Next
Set ma_selection = ActiveSheet.Range(Cells(4, 8), Cells(10, 12))
For Each cel In ma_selection
cel.Interior.ColorIndex = IIf(cel.Value = "", xlNone, 3)
Next cel
End Sub
il ne se passe plus rien, même sur la Feuil1 qui marchait juste avant.