Avis sur change et target

Bonjour voila je regarder pour calculer seulement la ligne modifier ou au pire seulement les ligne afficher lorsque lon modifie.

A l'heure actuel j'ai essayer cela mais sa ne marche pas vraiment ^^"

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Feuille
Dim WS As Worksheet
Dim ligne
ligne = Target.Row
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
            .Range(.Cells("A", ligne), .Cells("BF", ligne)).Calculate
            .Range(.Cells("A", ligne), .Cells("BF", ligne)).RefreshAll
            .Protect PW
        End With
    Next WS
    Flag = False
End If
End Sub

Merci

Bonsoir,

J'ai l'impression que ce code ne sert strictement à rien.