Microsoft 365 Qu'y a t'il de faux dans cette ligne ?

Sheets("Consommation").Range("C5") = "=SUMIFS(PG1!$D:pG1!$D,PG1!$H:pG1!$H,""2020"",PG1!$G:pG1!$G,""mars"")"

Sub SUMIFS_en_VBA()
Dim rngD As Range, rngG As Range, rngH As Range
With Sheets("PG1")
Set rngD = .[D:D]: Set rngG = .[G:G]: Set rngH = .[H:H]
End With
[C5] = Application.SumIfs(rngD, rngH, "2020", rngG, "mars")
End Sub

Sub Test_OK()
vSUMIFS Sheets("PG1"), Sheets("Consommation").Range("C5"), "2020", "mars"
vSUMIFS Sheets("PG1"), Sheets("Consommation").Range("C6"), "2020", "janvier"
End Sub
Private Sub vSUMIFS(F As Worksheet, rDesti As Range, crit1 As String, crit2 As String)
Dim RngD As Range, rngG As Range, rngH As Range
With F
Set RngD = .[D:D]: Set rngG = .[G:G]: Set rngH = .[H:H]
End With
rDesti = Application.SumIfs(RngD, rngH, crit1, rngG, crit2)
End Sub