XL 2010 Améliorer formule

[laplayast]

Bonjour,

Je souhaiterai que le recalcul de la formule ne se fasse que sur les lignes impliquées et non sur toute la feuille, afin d’accélérer l’exécution sous excel. Est-ce qu'il y a une possibilité.

Merci.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsEmpty(celluleAvant) Then
If Not Intersect(Range(celluleAvant), [F6:LW90]) Is Nothing Then Calculate
End If
celluleAvant = Target.Address
If Not Application.Intersect(Target, Range("F6:LW90")) Is Nothing And Target.Count = 1 Then 'Adapter la plage
UserForm1.Show
End If
Calculate
End Sub