Tps de calcul

Bonjour,

j'ai un problème, j'ai fait une userform avec un bouton qui ajoute des données dans une feuille.
cependant maintenant lorsque je lance la procédure il est ecrit en bas à gauche "Recalcul 100%".

depuis qu'il m'affiche ceci tout le programme ralentit...

que faire

Merci d'avance

Titou


voici la procédure dans le bouton



Private Sub CmdAjouter_Click()

If TextBox2.Value = "" Then
TextBox2.Value = 0
End If

If TextBox4.Value = "" Then
TextBox4.Value = 0
End If

If TextBox6.Value = "" Then
TextBox6.Value = 0
End If

If TextBox8.Value = "" Then
TextBox8.Value = 0
End If

If TextBox10.Value = "" Then
TextBox10.Value = 0
End If


If TextBox12.Value = "" Then
TextBox12.Value = 0
End If


If TextBox14.Value = "" Then
TextBox14.Value = 0
End If

If TextBox16.Value = "" Then
TextBox16.Value = 0
End If



Dim j As Integer
j = 5

If ComboBox1.Text = "" Then
Call MsgBox("Merci de spécifier la centrale d'enrobé", vbCritical + vbOKOnly, "Erreur")
Exit Sub
Else
If ComboBox2.Text = "" Or ComboBox3.Text = "" Then
Call MsgBox("Champs de saisie imcomplet", vbCritical + vbOKOnly, "Erreur de saisie")
Exit Sub
End If
End If

While Feuil3.Range("C" & j) <> ""
If (Feuil3.Range("C" & j)) = ComboBox3 Then
Call MsgBox("Une même prestation est déjà dans la liste", vbCritical, "Erreur")
Exit Sub
End If
j = j + 1
Wend




Feuil3.Activate
Range("A" & j) = ComboBox1
Range("B" & j) = ComboBox2
Range("C" & j) = ComboBox3
Range("E" & j) = TextBox17


Range("G" & j) = ComboBox4 'composant 1
Range("H" & j) = ComboBox5
Range("I" & j) = ComboBox6
Range("J" & j) = TextBox1 'cout 1
Range("K" & j) = TextBox2 'quantité 1

Range("O" & j) = ComboBox7 'composant 2
Range("P" & j) = ComboBox8
Range("Q" & j) = ComboBox9

Range("R" & j) = TextBox3 'cout 2
Range("S" & j) = TextBox4 'quantité 2


Range("w" & j) = ComboBox10 'composant 3
Range("x" & j) = ComboBox11
Range("y" & j) = ComboBox12
Range("Z" & j) = TextBox5 'cout 3
Range("AA" & j) = TextBox6 'quantité 3

Range("ae" & j) = ComboBox13 'composant 4
Range("Af" & j) = ComboBox14
Range("AG" & j) = ComboBox15
Range("AH" & j) = TextBox7 'cout 4
Range("AI" & j) = TextBox8 'quantité 4



Range("am" & j) = ComboBox16 'additif 1
Range("An" & j) = ComboBox17
Range("Ao" & j) = ComboBox18
Range("AP" & j) = TextBox9 'cout add 1
Range("AQ" & j) = TextBox10 'quantité add 1

Range("au" & j) = ComboBox19 'additif 2
Range("Av" & j) = ComboBox20
Range("Aw" & j) = ComboBox21
Range("AX" & j) = TextBox11 'cout add 2
Range("AY" & j) = TextBox12 'quantité add 2

Range("bc" & j) = ComboBox22 'bitume
Range("bd" & j) = ComboBox23
Range("be" & j) = ComboBox24
Range("BF" & j) = TextBox13 'cout bitume
Range("BG" & j) = TextBox14 'quantité bitume

Range("Bk" & j) = ComboBox25 'fabrication
Range("bl" & j) = ComboBox26
Range("bm" & j) = ComboBox27
Range("BN" & j) = TextBox15 'cout fabrication
Range("BO" & j) = TextBox16 'quantité fabrication




Call tri_enrob2
' Range("A5").Select
'Selection.Sort Key1:=Range("A5"), Order1:=xlAscending, Header:= _
' xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Call MsgBox("Le nouveau client est bien ajouté dans la bibliothèque", vbOKOnly, "Création d'une nouvelle entrée")
'Call EffaceClient
Call UserForm_Initialize

End Sub