Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Target = A1
If Not Application.Intersect(Target, [A1]) Is Nothing Then
' Target.Offset(ligne, colonne)
' Colore la cellule B1
' (0, 1) -> 0 = ligne 1 et 1 = colonne B
Target.Offset(0, 1).Interior.Color = 65535
' Colore la celulle B2
' (1, 1) -> 1 = ligne 2 et 1 = colonne B
Target.Offset(1, 1).Interior.Color = 65535
' Colore la cellule B3
' (2, 1) -> 2 = ligne 3 et 1 = colonne B
Target.Offset(2, 1).Interior.Color = 65535
' Colore la cellule C6
' (5, 2) -> 5 = ligne 6 et 2 = colonne C
Target.Offset(5, 2).Interior.Color = 65535
' Colore la cellule D48
' (47, 3) -> 47 = ligne 48 et 3 = colonne D
Target.Offset(47, 3).Interior.Color = 65535
' Etc...
End If
End Sub