Placer un code en veille

bonjour

je me trouve un peu embeté pour trouver une solution à mon probleme

partant du code :

Option Explicit

Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
Dim xcell As Range

If Not Intersect(Range("A2:A500"), Target) Is Nothing And Target.Count = 1 Then
'j'ajoute ca :
For Each xcell In Intersect(Range("A2:A500"), Target)
         Sheets("Feuil3").Range("K2") = xcell
        Next xcell

    For i = 21 To 100 'B1 à B21  remplies
        If Sheets("Feuil1").Cells(i, 2) = "" Then
            Sheets("Feuil1").Cells(i, 2) = Target.Value
            Sheets("Feuil1").Select

            Exit Sub
        End If
    Next
    MsgBox ("Aucune cellule libre, sur la feuille 1, de la cellule B1 à la cellule B21")
  End If

        End Sub

je souhaiterai créer deux boutons sur ma feuille 2 dont l'un contiendrai une macro me permettant de "geler" ce code se trouvant sur ma feuille 2

et le second me permettant de le réactiver .... ( s'il existe une solution pouvant réunir deux macros en une je suis preneur )

Merci pour vos conseils

erreur de sujet

désolé

Bonjour

dans un module code de ton bouton

Option Explicit

Public Oui As Boolean

Sub OuiNon()
  Oui = Not Oui
End Sub

Le début du code dans la feuille

Option Explicit

Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
Dim xcell As Range
 If Oui = False Then Exit Sub
 MsgBox "ma macro s'exécute"

bonjour

j'ai remodifier le titre du sujet peut etre pas adapté à la question

Merci à toi ca marche du tonnerre !! on aurait pas fait mieux je salut tes compétences !

Bonne soirée ,