Bonjour à toutes et tous,

Voilà, j'ai le module ci-dessous qui met à jour toutes les lignes de la feuille "reference :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub controle()
Dim x As Integer
With sheets("references")
For x = 2 To .Range("a" & Rows.Count).End(xlUp).Row
        .Range("e" & x) = .Range("c" & x) + (.Range("c" & x) * .Range("d" & x))
        .Range("i" & x) = Application.WorksheetFunction.Ceiling(.Range("c" & x) * .Range("g" & x), 0.05)
        .Range("h" & x) = .Range("i" & x) / (1 + .Range("d" & x))
        .Range("k" & x) = .Range("h" & x) - .Range("c" & x)
        .Range("l" & x) = .Range("k" & x) / .Range("c" & x)
 
Next x
End With
End Sub
l'execution de ce module par un bouton de commande met un certain temps (407 lignes à mettre à jour), peut-on l'améliorer pour l'accélérer, surtout si la feuille se voit doter de lignes supplémentaires.

Merci d'avance de vos suggestions éventuelles