La grande formule VBA ne fonctionne pas

J'utilise Excel 2013,

J'applique 2 voies la grande formule VBA, mais ne fonctionne pas, ce que je me trompe, je ne sais pas

Sous Macro1 ()
'1ère instruction Table Dim ---> Déclare des variables
Dim lRow aussi longtemps, lCol aussi longtemps
lRow = Range("D5").End(xlDown).Row
lCol = Range("C5").End(xlToRight).Column

'Compte de colonne en nombre
Dim k Aussi longtemps, m Aussi longtemps
k = Range("C5", Range("C5").End(xlToRight)).Columns.Count
'Nombre de lignes dans le nombre
m = Range("D6", Range("D6").End(xlDown)).Rows.Count

Atténuer MyRange en tant que plage
Set MyRange = Range(Range("D5").Offset(1, k + 3), Range("D5").Offset(m, k + 3))

Plage("D5").Décalage(2, 1 + 3).Formule = "=LARGE(" & MaPlage & ",1)"

'Et

'=(GRAND($I$6:$I$12,1)-I7)/2
Range("D5").Offset(2, 1 + 3).Formula = "=(LARGE(" & MyRange & ",1)-" & Range("D5").Offset(1, k + 3) & ")/2"

End Sub

Merci de m'aider et merci d'avance