Inséré une variable dans sumif

Bonsoir

comment inséré une variable dans sum if afin de crée une boucle:

Sub somme_si()
Dim MaPlage As Range
Dim i As Currency

i = 1

For i = 14 To 20
Set MaPlage = Range("D" & i)
MaPlage = Application.SumIf(Range("E4:AAA4"), "VMOB", Range("E" & i ":AAA" & i))
Next i
End Sub

Du coup cette syntaxe n'est pas accepté...
Pouvez vous m'aider ?
Merci