Microsoft 365 Associer plusieurs plages à une boucle FOR

'Associe 2 plages en un seul objet avec la méthode UNION
Sub UniondePlage()
Dim plg1, plg2, ToutePlage As Range
Set plg1 = Sheets("Feuil1").Range("A1:A10")
Set plg2 = Sheets("Feuil1").Range("B10:B20")
Set ToutePlage = Union(plg1, plg2)
ToutePlage.Interior.ColorIndex = 5
End Sub

Sub tutu()
Dim G As Byte
    With Worksheets("TEST1")
            For G = 28 To 42
                If Cells(G, 12) <> "" And IsNotNumeric(Range("M" & x).Value) And Len(Range("M" & x).Value) <> 6 Then _
                        MsgBox "TEST", vbCritical, "Contrôle format "
                        Exit Sub
                End If
            Next
            For G = 54 To 68
                If Cells(G, 12) <> "" And IsNotNumeric(Range("M" & x).Value) And Len(Range("M" & x).Value) <> 6 Then _
                        MsgBox "TEST", vbCritical, "Contrôle format "
                        Exit Sub
                End If
            Next
            For G = 80 To 94
                If Cells(G, 12) <> "" And IsNotNumeric(Range("M" & x).Value) And Len(Range("M" & x).Value) <> 6 Then _
                        MsgBox "TEST", vbCritical, "Contrôle format "
                        Exit Sub
                End If
            Next
    End With
End Sub

Sub titi()
    Dim Cell As Range
    Dim X As Byte
        With Worksheets("TEST1")
            Set MaPlage = Application.Union(Range("L28:L42"), Range("L54:L68"), Range("L80:L94"))
            For Each Cell In MaPlage
                If Cell <> "" And IsNumeric(Range("M" & X) = False) And Len(Range("M" & X).Value) <> 6 Then
                    MsgBox "TEST", vbCritical, "Contrôle format "
                    Exit Sub
                End If
            Next
        End With
End Sub

If Cell <> "" And IsNumeric(Range("M" & Q) = False) And Len(Range("M" & Q).Value) <> 6 Then