XL 2016 VBA - macro pour calculer que la ligne.

[Keran]

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.

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

 

[Keran]

j'avais essayer en metant un activetarget mais sa ne marche pas ^^'