Sub TestName2()
Dim rg As Range, rg1 As Range
Dim i As Integer
Dim j As Integer
Dim z As Integer
Set rg = Range("Y179")
Set rg1 = rg
'Schéma colonne Y
For i = 0 To 23 'lignes
For j = 0 To 6 'colonnes
Set rg = Union(rg, rg1.Offset(i * 3, j * 2))
Next j
'Colonne AO
Set rg = Union(rg, rg1.Offset(i * 3, 16))
Next i
'Schéma colonne AQ
Set rg1 = rg1.Offset(0, 18)
For i = 0 To 23 'lignes
For j = 0 To 6 'colonnes
Set rg = Union(rg, rg1.Offset(i * 3, j * 2))
Next j
'Colonne AO
Set rg = Union(rg, rg1.Offset(i * 3, 16))
Next i
'Schéma colonne BJ
Set rg1 = rg1.Offset(0, 19)
For i = 0 To 23 'lignes
For j = 0 To 6 'colonnes
Set rg = Union(rg, rg1.Offset(i * 3, j * 2))
Next j
'Colonne AO
Set rg = Union(rg, rg1.Offset(i * 3, 16))
Next i
'Schéma colonne CC
Set rg1 = rg1.Offset(0, 19)
For i = 0 To 23 'lignes
For j = 0 To 6 'colonnes
Set rg = Union(rg, rg1.Offset(i * 3, j * 2))
Next j
'Colonne AO
Set rg = Union(rg, rg1.Offset(i * 3, 16))
Next i
ActiveWorkbook.Names.Add Name:="PlageX", RefersTo:=rg
End Sub