Private Sub Worksheet_SelectionChange(ByVal t As Range)
'CODE à mettre dans le code de la feuille.
'EDITION: Clic-droit sur l'onglet concerné-> Visualiser le code
'C'est là qu'il faut copier le code VBA
If Not Intersect([C2:K2], t) Is Nothing Then
[C2:K35].Interior.ColorIndex = xlNone: t.Resize(34).Interior.ColorIndex = 15
End If
End Sub