Désactiver macro Bis !!

Bonjours

voila j'ai une macro qui se lance l'orsqu'un combobox change de valeur :

Private Sub ComboBox2_Change()
Déprotéger
B37 = range("B37")
C37 = range("C37")
Déprotéger
If B37 = 1 Then
ActiveSheet.Shapes("combobox1").Select
Selection.ShapeRange.ZOrder msoSendToBack
range("C37").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(R[-33]C[1],save!R[-36]C[-1]:R[963]C[116],117,FALSE)),"""",VLOOKUP(R[-33]C[1],save!R[-36]C[-1]:R[963]C[116],117,FALSE))"
range("B37").Select
ActiveCell.FormulaR1C1 = 0
End If
If C37 <> "" Then
Sheets("Client").Shapes("CommandButton2").ZOrder msoBringToFront
Sheets("Client").Shapes("CommandButton5").ZOrder msoBringToFront
Else
Sheets("Client").Shapes("CommandButton2").ZOrder msoSendToBack
Sheets("Client").Shapes("CommandButton5").ZOrder msoSendToBack
End If
Protéger
End Sub

Et une autre que je lance avec un boutton :

Sub Rempl()
Déprotéger
F4 = range("F4")

'Insertion d'une ligne vide en haut du tableau de données.
Application.EnableEvents = True
Workbooks("Contact.xls").Sheets("Contact").Rows("3:3").Insert Shift:=xlDown

'Sauvegarde des données de la fiche dans la ligne vide que
'l'on vient d'ajouter.

For N_Data = 1 To 19
Sav = Sheets("Client").range("Cdata" & N_Data)
If Sav <> "" Then
Workbooks("Contact.xls").Sheets("Contact").Cells(3, N_Data + 1).Value = Sav
End If
Next N_Data

'Regroupement du nom et du prénom dans la première et la dernière
'colonne du tableau.

Workbooks("Contact.xls").Sheets("Contact").Cells(3, 1).Value = "=RC[1] & "" "" & RC[2]"
Workbooks("Contact.xls").Sheets("Contact").Cells(3, 21).Value = "=RC[-19] & "" "" & RC[-18]"

'Effacement des données ayant les mêmes nom et prénom que l'entrée.
Verif = 4
While Workbooks("Contact.xls").Sheets("Contact").Cells(Verif, 1).Value <> ""
Valeur = Workbooks("Contact.xls").Sheets("Contact").Cells(Verif, 1).Value
If Valeur = F4 Then
Workbooks("Contact.xls").Sheets("Contact").Cells(Verif, 1).EntireRow.Delete
End If
Verif = Verif + 1
Wend

'Remise du tableau dans l'ordre alphabétique.

Workbooks("Contact.xls").Sheets("Contact").range("B3:T10000").Sort Key1:=Workbooks("Contact.xls").Sheets("Contact").range("B3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

'Initialisation de la fiche client.

InitialiseClient
Workbooks("contact.xls").Save
Application.EnableEvents = true

End Sub

Le problème c'est que en lancant "rempl" cela lance "ComboBox2_Change" et cela fait planter le programme y a t'il un moyen pour éviter qu'elle ne se lance ??

Merci