Bonjour
A adapter
A mettre sur la feuille considérée et non dan sun module
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'efface les couleurs présentes sur la feuille
Cells.Interior.ColorIndex = xlNone
'teste selon position
If Target.Column 'supérieur' 1 Then Target.Offset(0, -1).Interior.Color = RGB(255, 0, 0)
If Target.Column 'inférieur' 256 Then Target.Offset(0, 1).Interior.Color = RGB(255, 0, 0)
If Target.Column 'inférieur' 253 Then Target.Offset(0, 4).Interior.Color = RGB(255, 0, 0)
End Sub
A+