fonction calculate

[marco]

bonjour à tous

je mets à jour un tableau à l'aide d'un Userform et listbox mais tant que l'user form est ouvert les calculs de la feuille ne se font pas j'ai rajoute la fonction calculate sans succés

merci à tous de votre aide

Private Sub ListBox1_Click()
Dim DerLigne As Integer

DerLigne = Sheets('impression').Range('A65536').End(xlUp).Row + 1

With Sheets('impression')
If ListBox1.Value = '' Then Exit Sub
.Cells(DerLigne, 1) = ListBox1
.Cells(DerLigne, 3) = TextBox1
.Cells(DerLigne, 2) = '8'
.Select
Range('A2:H102').Sort Key1:=Range('A2'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
CommandButton3.Visible = False
Sheets('masque').Calculate
End Sub