y = 1
For Each cell In Qnorm2
FrmProgression.Show
PourcentageEffectue = y / Temps 'Calcul du pourcentage de stats traitées
Selection.FormulaR1C1 = "=(R[-" & Nf & "]C/R" & x & "C)"
y = y + 1
With FrmProgression
.FrameProgress.Caption = Format(PourcentageEffectue, "0%")
.LabelProgress.Width = PourcentageEffectue * (.FrameProgress.Width - 10)
.Repaint
End With
Next cell