Macro dans 2 plages de cellules uniquement

Dim plage As Range
Set plage = Intersect(Selection, Range("G10:X30,G40:X120"))

Sub macrotest()
If Not Intersect(ActiveCell, Range("G10:X30,G40:X120")) Is Nothing Then
MsgBox "selection ok"
Else
MsgBox "selection pas ok"
End If
End Sub

Dim plage As Range
Set plage = Intersect(Selection, Range("G10:X30,G40:X120"))
[COLOR="Red"]If plage Is Nothing Then MsgBox "Plage non valide": Exit Sub[/COLOR]

Sub client1()
Dim plage As Range
Set plage = Intersect(ActiveCell, Range("G10:X30,G40:X120"))
If Not Intersect(ActiveCell, Range("G10:X30,G40:X120")) Is Nothing Then
    With plage
    .FormulaR1C1 = Range("listeclient!F3").Value
        With .Interior
            .ColorIndex = Range("listeclient!G3").Value
            .Pattern = xlSolid
        End With
        With .Font
            .ColorIndex = 0
            .Bold = True
        End With
    End With
Else
MsgBox "Mauvaise plage de selection", _
        vbCritical, "Erreur : cellule " _
        & ActiveCell.Address(0, 0) & " invalide."
End If
End Sub

If Not Intersect(ActiveCell, Range("G10:X30,G40:X120")) Is Nothing Then

Dim plage As Range
Set plage = Intersect(Selection, Range("G10:X30,G40:X120"))
If plage Is Nothing Then MsgBox "Plage non valide": Exit Sub

Sub client11()
Dim plage As Range
Dim couleur As Range
Set couleur = Sheets("listeclient").[G3]
Set plage = Intersect(Selection, Range("G10:X30,G40:X120"))
If plage Is Nothing Then
MsgBox "Mauvaise plage de selection", vbCritical, "Erreur : Plage " & Selection.Address(0, 0) & " invalide.": Exit Sub
Else
    With plage
    .Value = couleur.Offset(, -1).Value
        With .Interior
        If IsEmpty(couleur) Or Not IsNumeric(couleur) Then Exit Sub
            .ColorIndex = CLng(couleur)
            .Pattern = xlSolid
        End With
        With .Font
            .ColorIndex = 0
            .Bold = True
        End With
    End With
End If
End Sub