Code activer désactiver

Sub ActiveDesactive()
Choix = Not Choix
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'Cette macro a été créée par Gaëtan Mourmant
'Contact : contact@polykromy.com
 
'*** Définition des variables ***
'Hauteur de la cellule active
h = ActiveCell.Height
 
'Largeur de la cellule active
w2 = ActiveCell.Width
 
'Hauteur entre la cellule active et la première ligne
t = ActiveCell.Top
 
'Largeur entre la cellule active et la première colonne
w = ActiveCell.Left
[B] If Choix = True Then[/B]
'Teste si les rectangles existent déjà. Dans ce cas, on les efface.
'On utilise ici On Error Resume Next, qui permet de tester
' l'erreur de création d'un rectangle en double portant le même nom.
On Error Resume Next
ActiveSheet.Shapes("RectangleV").Delete
On Error Resume Next
ActiveSheet.Shapes("RectangleH").Delete
 

' Ajoute les rectangles en fonction des coordonnées précédemment calculées.
' Les rectangles sont transparents, de grosseur 3 et de couleur rouge (10)
' On ne peut pas les imprimer.
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, t, w, h).Name = "RectangleV"
With ActiveSheet.Shapes("RectangleV")
    .Fill.Visible = msoFalse
    .Fill.Transparency = 0#
    .Line.Weight = 3#
    .Line.ForeColor.SchemeColor = 10
    .PrintObject = False
End With
 
ActiveSheet.Shapes.AddShape(msoShapeRectangle, w, 0, w2, t).Name = "RectangleH"
 
With ActiveSheet.Shapes("RectangleH")
    .Fill.Visible = msoFalse
    .Fill.Transparency = 0#
    .Line.Weight = 3#
    .Line.ForeColor.SchemeColor = 10
    .PrintObject = False
End With
[B]Else
Exit Sub
End IF[/B]
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
' Macro créée par G.Mourmant le 01/09/2001
' Site web : http://www.polykromy.com]Excel - Cours - Astuces - Macros - Trucs - Applications VBA
' Copyright Gaetan Mourmant

'*** Définition des variables ***
Dim h
Dim w2
Dim t
Dim w

'plus le reste du code