Bonjour j'aimerais voila j'ai un fichier qui me sert a calculer les masses horaires des agents quand quelqu'un saisi sur une feuilles une lettre cela exécute plusieurs formule pour donner les informations nécessaire .

a l'heure actuel le fichier marche plutôt bien mais je voulais savoir si il était possible de faire en sorte que au lieux de calculer toutes la feuille on calcul seulement la ligne modifé ou tous du moins les ligne qui sont afficher, entre ligne 6 et 65.

Code vb : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 
Dim Feuille
 
Dim i%
 
Dim WS As Worksheet
 
If Flag = True Then Flag = False: Exit Sub
 
Feuille = ActiveSheet.Name
 
If Application.Calculation = xlCalculationManual And Feuille <> "Données" Then
 
    Flag = True
 
    On Error Resume Next
 
    For Each WS In Worksheets(Array(Feuille, "H" & Feuille, "B" & Feuille, "Bilan"))
 
        With WS
 
            .Unprotect PW
 
            .Calculate
 
            Worksheets(Array(Feuille, "H" & Feuille, "B" & Feuille, "Bilan")).RefreshAll
 
            .Protect PW
 
        End With
 
    Next WS
 
    Flag = False
 
End If
 
End Sub

Merci