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 la place 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

Bonsoir,

La formule d'origine n'est pas modifiable.

t est une variable tu pourrais à la rigueur insérer cette variable dans un string adresse avec des guillemets ( ..." & t & "... Mais ici, point de guillemets. Donc pas de modification possible.

A+