Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Value = "" Then Exit Sub
If Target.Column = 2 Then
Application.ScreenUpdating = False
Range("A:ZZ").EntireColumn.Hidden = False
NbCol = Application.WorksheetFunction.CountA(Range("B9:ZZ9"))
For i = 3 To 3 + NbCol Step 2
If Cells(Target.Row, i) = "" Then
Cells(Target.Row, i).EntireColumn.Hidden = True
Cells(Target.Row, i + 1).EntireColumn.Hidden = True
End If
Next i
End If
End Sub