MACRO code pour remplacer formule par résultat

bonjour le forum,

bonjour à tous,

je cherche un code VBA pour remplacer les formules d'une partie (variable) de mon tableau par les résultats.

le tableau en question qui fait partie d'un classeur devenu très lourd et très lent dans les recalculs.

j'aimerais donc pouvoir appuyer sur un bouton pour faire remplacer les formules par les résultats sans changer la mise en forme.

ex : le code devra agir sur la plage commençant par F3 (début fixe) et se terminer par le numéro de colonne dont la valeur en ligne 2 correspond au chiffre écrit en D1. ici c'est 17 donc jusqu'à U3 et ensuite descend jusqu'à la dernière ligne avec donnée. dans le cas d'espèce ce serait de F3 à U220.

merci d'avance.

Moutchec.

bonjour,

une proposition

Sub aargh()
    dl = Cells(Rows.Count, 5).End(xlUp).Row
    Range("F3").Resize(dl, Range("D1") - 1).Copy
    Range("F3").PasteSpecial xlPasteValues
End Sub

Bonjour,

c'est vraiment parfait.

merci.

Moutchec.