Remplacement de cellule

Hello forum,

Je suis face à un problème que je ne comprends pas...

J'ai essayé de remplacer une cellule par t (D6) et cela marche quand je l'affiche en G4 mais pas dans la formule ... Y aurait-il un connaisseur ?!

Sub matrice()
Dim t

t = "D" & Application.WorksheetFunction.CountA(Feuil1.Range("$D:$D")) & ""

Range("G2") = Evaluate([SQRT(MMULT(MMULT(TRANSPOSE(D2:t),I2:M6),D2:t))])
Range("G4") = t

End Sub