Nom de plage de cellules

For i = 6 to 126 Step 8
Range(Cells(i, 3), Cells(i + 3, 3)) =  0
Range(Cells(i, 8), Cells(i + 3, 8)) =  0
Next

For Each ws in Worksheets
With ws
For i = 6 to 126 Step 8
.Range(.Cells(i, 3), .Cells(i + 3, 3)) =  0
.Range(.Cells(i, 8), .Cells(i + 3, 8)) =  0
Next
End With
Next

Sub zones_a_zero()
Dim x As String, y As String
For i = 126 To 6 Step -8
For Each Ws In Worksheets
    With Ws
        .Range(Cells(i, 3).Resize(4, 1).Address & "," _
        & Cells(i, 8).Resize(4, 1).Address) = 0
    End With
Next
Next
End Sub

Sub effaces_valeurs_zones()
Dim x As String, y As String
For i = 126 To 6 Step -8
For Each Ws In Worksheets
    With Ws
        .Range(Cells(i, 3).Resize(4, 1).Address & "," _
        & Cells(i, 8).Resize(4, 1).Address).ClearContents
    End With
Next
Next
End Sub

Sub reinit_zones()
Dim i As Byte
zones = Split("C6:C9/H6:H9/C14:C17/H14:H17/C126:C129", "/")
For i = LBound(zones) To UBound(zones)
For Each Ws In Worksheets
Ws.Range(zones(i)).Value = 0
Next
Next
End Sub

For Each ws In Worksheets
With ws
[COLOR="Red"]If .Name Like "##" Then[/COLOR]
For i = 6 To 126 Step 8
.Range(.Cells(i, 3), .Cells(i + 3, 3)) = 0
.Range(.Cells(i, 8), .Cells(i + 3, 8)) = 0
Next
[COLOR="Red"]End If[/COLOR]
End With
Next

[COLOR="Red"]On Error Resume Next[/COLOR]
For Each ws In Worksheets
With ws
[COLOR="Red"]If .Name * 1 < 9 Then GoTo 1[/COLOR]
For i = 6 To 126 Step 8
.Range(.Cells(i, 3), .Cells(i + 3, 3)) = 0
.Range(.Cells(i, 8), .Cells(i + 3, 8)) = 0
[COLOR="Red"]1 Next[/COLOR]
End With
Next