Code identique pour 2 plage différente

If Intersect(Target, Range("A1:D8,F1:H8")) Is Nothing Or Target.Count > 1 Then Exit Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:D8")) Is Nothing Then
    If Target = "1" Then
     Application.EnableEvents = False
        Range("A" & Target.Row & ":D" & Target.Row).ClearContents
       Target = "1"
        Application.EnableEvents = True
    End If
End If
If Not Intersect(Target, Range("F1:H8")) Is Nothing Then
    If Target = "1" Then
     Application.EnableEvents = False
        Range("F" & Target.Row & ":H" & Target.Row).ClearContents
       Target = "1"
        Application.EnableEvents = True
    End If
End If
End Sub