Excel 2010 :: Display Column If Single Cell Has Specific Value

I'm using Excel 2010 and I'm having troubles displaying hiding my column B if none of the cells of column A contains either "(Quasi Echec)" or "(Quasi Russite)" at least once.

PHP Code: [URL] ......

Below are my 3 attempts.

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
If Target.Column 1 Then Exit Sub
Application.EnableEvents = False
On Error Resume Next

[Code] ..........

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Sub GetUniquesInColA()
Dim rng As Range
Dim c
If Target.Column 1 Then Exit Sub
On Error Resume Next

[Code] .........

Code:
Option ExplicitPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Long
Dim LastRow As Long
LastRow = Range("A65536").End(xlUp).Row

[Code] ...........