Private Sub Worksheet change

Bonjour,
Est ce quelqu'un saurait me dire ce qu'il faut que je change dans la macro ci-dessous pour que ce soit les lignes qui se masquent et non les colonnes.
Merci d'avance!

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MaCellule As Range
For Each MaCellule In Range("D14:F46")
If MaCellule.Value = 0 Then
On Error Resume Next
MaCellule.EntireLine.Hidden = True
ActiveSheet.ChartObjects("Chart 4").Activate
ActiveChart.PlotVisibleOnly = True
Else
MaCellule.EntireLine.Hidden = False
End If

Next
End Sub