Salut !
Vite fait en passant :
A Finir :
Sub Macro1()
Dim Cell As Range
For Each Cell In Range('C12:C42')
If Cell = 'R' Or Cell = 'r' Then
Cell.Interior.ColorIndex = 8
Cell.Offset(0, -1).Interior.ColorIndex = 8
ElseIf Cell = 'V' Then
Cell.Interior.ColorIndex = 4
Cell.Offset(0, -1).Interior.ColorIndex = 4
ElseIf Cell = 'M' Then
Cell.Interior.ColorIndex = 7
Cell.Offset(0, -1).Interior.ColorIndex = 7
ElseIf Cell = 'F' Then
Cell.Interior.ColorIndex = 24
Cell.Offset(0, -1).Interior.ColorIndex = 24
End If
Next Cell
End Sub
@ +++
Moa