Effacer les cellules fusionnees sous condition d'autre cellule

'quand j'efface le contenu de la cellule fusionnée G12
'celle-ci effacent automatiquement
'G12 (G-K12)
'L12 (L-O12)
'P12 (P-Q12)
'R12 (R-T12)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "G12:K12" Then
   If [G12] = "" Then [L12] = "": [P12] = "": [R12] = ""
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "G12:K12" Then
   If [G12] = "" Then [L12] = "": [P12] = "": [R12] = ""
End If
If Target.Address(0, 0) = "G12:K12" Then
   If [G12] = "" Then [L12] = "": [P12] = "": [R12] = ""
End If
If Target.Address(0, 0) = "G12:K12" Then
   If [G13] = "" Then [L13] = "": [P13] = "": [R13] = ""
End If
If Target.Address(0, 0) = "G12:K12" Then
   If [G14] = "" Then [L14] = "": [P14] = "": [R14] = ""
End If 
...... etc
If Target.Address(0, 0) = "G12:K12" Then
   If [G33] = "" Then [L33] = "": [P33] = "": [R33] = ""
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Set r = Intersect(Target, [G12:G33])
If r Is Nothing Then Exit Sub
For Each r In r
  If r = "" Then Union(r(1, 6), r(1, 10), r(1, 12)).ClearContents
Next
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Set r = Intersect(Target, [G12:G33])
If r Is Nothing Then Exit Sub
For Each r In r
  If r = "" Then r(1, 6).Resize(, 9).ClearContents 'L à T
Next
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Set r = Intersect(Target, [G12:G33])
If r Is Nothing Then Exit Sub
For Each r In r
  If r = "" Then Union(r(1, 6), r(1, 10), r(1, 12)) = ""
Next
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Set r = Intersect(Target, [G12:G33])
If r Is Nothing Then Exit Sub
For Each r In r
  If r = "" Then Union(r(1, -4), r(1, 6).Resize(, 9)) = ""
Next
End Sub

 If r = "" Then r(1, 6).Resize(, 9).ClearContents and   r(1, -2).Resize(, 5).ClearContents 'L à T et de B à F