disparition d'une image quand des conditions sont remplies

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E4,E6,E8,E10,E12,D14,E18,E20")) Is Nothing Then
Application.ScreenUpdating = False
ActiveSheet.Shapes("Bouton 2").Visible = True
ActiveSheet.Shapes("Groupe 11").Visible = False
For Each cellule In Range("E4,E6,E8,E10,E12,D14,E18,E20")
    If cellule = "" Then
    ActiveSheet.Shapes("Groupe 11").Visible = True
    ActiveSheet.Shapes("Bouton 2").Visible = False
    End If
Next cellule
Application.ScreenUpdating = True
End If
End Sub