Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Sheets("TB")
Dim derli As Integer
Dim x
derli = Range("A109").End(xlUp).Row
'dans columns 15,18,21,23,25,27,29,31,33,35,37,39 (entre lignes 3 et derli)
'je voudrais donc que cela agisse entre Columns(15) et Columns(39) notamment avec un pas de x + 3
For x = 15 To 39
If Not Intersect(Target, Columns(x)) Is Nothing Then
If Target = "" Then Target = "þ" Else Target = ""
With Selection.Interior
If Target = "þ" Then
.ColorIndex = 4
.PatternColorIndex = xlAutomatic
End If
End With
End If
x = x + 3
Next x
'solution de Pierrot 93 dans un précédent FIL que j’essaie d’adapter ci-dessus :
If Not Intersect(Target, Range("K3:K" & derli & ",M3:AM" & derli)) Is Nothing Then
If Target = "" Then Target = "þ" Else Target = ""
Range("A" & Target.Row).Select
End If
End With
End Sub