Macro qui se relance à chaque action

Bonjour,

C'est mon premier message sur ce forum et j'espère que vous pourrez répondre à mon petit problème.

Je suis en train de monter un fichier pour mon boulot, et j'ai essayer de créer une petite macro pour faire apparaitre ou disparaitre des lignes et des Checks Box.

L'activation de cette macro se fait en choisissant une valeur dans une liste sur une première cellule, et le reste des cellules doit se remplir ensuite, sans que cette macro affecte ces nouvelles cellules.

Mais le soucis que je rencontre réside dans le fait que cette macro s'active et se lance peu importe ce que je fais. Lorsque je rentre une valeur dans une cellule, ou lorsque je choisis une valeur d'une liste pré défini par exemple.

Je vous met la macro:



"Private Sub Worksheet_Change(ByVal Target As Range)

'Shéma classique


If Range("C2") = "Classique" Then
Rows("29:35").EntireRow.Hidden = True


End If


'afficher les lignes du schéma saisonnier

If Range("C2") = "Saisonnier" Then

Rows("33:35").EntireRow.Hidden = False
Rows("36").EntireRow.Hidden = True
Rows("46").EntireRow.Hidden = False
Else
Rows("33:35").EntireRow.Hidden = True
Rows("36").EntireRow.Hidden = False
Rows("46").EntireRow.Hidden = True

End If

If Range("C2") = "Saisonnier" Then
ActiveSheet.CheckBoxes.Add(605, 451, 24, 17.25).Select
Selection.Characters.Text = ""
With Selection
.Value = xlOff
.LinkedCell = "$N$23"
.Display3DShading = False
End With
ActiveSheet.CheckBoxes.Add(663.75, 451, 24, 17.25).Select
Selection.Characters.Text = ""
With Selection
.Value = xlOff
.LinkedCell = "$N$24"
.Display3DShading = False
End With
ActiveSheet.CheckBoxes.Add(717, 451, 24, 17.25).Select
Selection.Characters.Text = ""
With Selection
.Value = xlOff
.LinkedCell = "$N$25"
.Display3DShading = False
End With
ActiveSheet.CheckBoxes.Add(799, 451, 24, 17.25).Select
Selection.Characters.Text = ""
With Selection
.Value = xlOff
.LinkedCell = "$N$26"
.Display3DShading = False
End With
ActiveSheet.CheckBoxes.Add(862.5, 451, 24, 17.25).Select
Selection.Characters.Text = ""
With Selection
.Value = xlOff
.LinkedCell = "$N$27"
.Display3DShading = False
End With
ActiveSheet.CheckBoxes.Add(943, 451, 24, 17.25).Select
Selection.Characters.Text = ""
With Selection
.Value = xlOff
.LinkedCell = "$N$28"
.Display3DShading = False
End With
ActiveSheet.CheckBoxes.Add(605, 467.5, 24, 17.25).Select
Selection.Characters.Text = ""
With Selection
.Value = xlOff
.LinkedCell = "$N$29"
.Display3DShading = False
End With
ActiveSheet.CheckBoxes.Add(663.75, 467.5, 24, 17.25).Select
Selection.Characters.Text = ""
With Selection
.Value = xlOff
.LinkedCell = "$N$30"
.Display3DShading = False
End With
ActiveSheet.CheckBoxes.Add(717, 467.5, 24, 17.25).Select
Selection.Characters.Text = ""
With Selection
.Value = xlOff
.LinkedCell = "$N$31"
.Display3DShading = False
End With
ActiveSheet.CheckBoxes.Add(799, 467.5, 24, 17.25).Select
Selection.Characters.Text = ""
With Selection
.Value = xlOff
.LinkedCell = "$N$32"
.Display3DShading = False
End With
ActiveSheet.CheckBoxes.Add(862.5, 467.5, 24, 17.25).Select
Selection.Characters.Text = ""
With Selection
.Value = xlOff
.LinkedCell = "$N$33"
.Display3DShading = False
End With
ActiveSheet.CheckBoxes.Add(943, 466.75, 24, 17.25).Select
Selection.Characters.Text = ""
With Selection
.Value = xlOff
.LinkedCell = "$N$34"
.Display3DShading = False
End With


End If

' afficher les lignes du schéma comprenant des premiers loyers majorés

If Range("C2") = "Loyers majorés / minorés" Then

Rows("29:31").EntireRow.Hidden = False
Rows("45").EntireRow.Hidden = False

Else
Rows("29:31").EntireRow.Hidden = True
Rows("45").EntireRow.Hidden = True

End If


End Sub"





Pourriez-vous m'éclairer svp?