Cellule fusionnée vides sous conditions

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [E40] = "Non" Then [H40] = ""         'Vider Contractuelle et réelle
If [E40] = "Non" Then [M40] = ""



If [E42] = "Non" Then [H42] = ""         'Vider Contractuelle et réelle
If [E42] = "Non" Then [M42] = ""



If [E44] = "Non" Then [H44] = ""         'Vider Contractuelle et réelle
If [E44] = "Non" Then [M44] = ""


End Sub

Dim c As Range
For Each c In [E40,E42,E44]
  If c = "Non" Then c(1, 4) = "": c(1, 9) = ""
Next

Dim c As Range, n&
For Each c In [E40:E44]
  n = n + 1
  If n Mod 2 Then If c = "Non" Then c(1, 4) = "": c(1, 9) = ""
Next

Dim t1, t2, t3, n&
t1 = [E40:E10000].Formula
t2 = [H40:H10000].Formula
t3 = [M40:M10000].Formula
For n = 1 To UBound(t1) Step 2
  If t1(n, 1) = "Non" Then t2(n, 1) = "": t3(n, 1) = ""
Next
[H40:H10000] = t2
[M40:M10000] = t3

Dim t1, t2, t3, n&
With Range("E40:M" & Range("E" & Rows.Count).End(xlUp).Row)
  t1 = .Columns(1).Formula
  t2 = .Columns(4).Formula
  t3 = .Columns(9).Formula
  For n = 1 To UBound(t1) Step 2
    If t1(n, 1) = "Non" Then t2(n, 1) = "": t3(n, 1) = ""
  Next
  .Columns(4) = t2
  .Columns(9) = t3
End With

Dim t, n&
With Range("E40:M" & Range("E" & Rows.Count).End(xlUp).Row)
  t = .Formula
  For n = 1 To UBound(t) Step 2
    If t(n, 1) = "Non" Then t(n, 4) = "": t(n, 9) = ""
  Next
  .Columns(4) = Application.Index(t, , 4)
  .Columns(9) = Application.Index(t, , 9)
End With