[RESOLU] probleme dans Worksheet_SelectionChange(ByVal Target As Range)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rep As Variant

If Not Application.Intersect(Target, _
 Range("L18:L41, L44:L71, L74:L92, L95:L128, U18:U41, U44:U71, U74:U92, U95:U128")) Is Nothing Then

End If
End Sub

Dim a As Range, b as Range
set a=Range("L18:L41, L44:L71, L74:L92")
Set b=Range("L95:L128, U18:U41")
If Not Application.Intersect(Target, Union(a,b)) Is Nothing Then

If Not Intersect(Target, Range("L18:L41, L44:L71, L74:L92,L95:L128," & _
                               "U18:U41, U44:U71, U74:U92, U95:U128")) Is Nothing Then
MsgBox "coucou"
End If

Select Case Target.Column
    Case 12, 21, 30, 39, 48, 57, 68
    Select Case Target.Row
    Case 18 To 41, 44 To 71, 74 To 92, 95 To 128
    MsgBox "coucou"
    End Select
End Select