Macro - étendre une plage formules

[Hugo_pack]

Bonjour à tous,

je vous explique la situation. J'ai un tableau allant de la colonne A:U. Chaque mois je rajoute des valeurs grace à cette macro :
Sub CollerHisto()

  Sub CollerHisto()  
Dim Derligne As Long
    
    Derligne = Sheets("Extraction IFS Historique").Range("A6").End(xlDown).Row + 1
    Range("A" & Sheets("Extraction IFS Historique").Range("A6").End(xlDown).Row + 1).Select
    ActiveSheet.Paste
        
End Sub

Cette macro recherche la 1ere cellule vide dans la colonne A et colle les valeurs copiées auparavent de la colonne A à S.

Les colonnes T et U (2dernieres) sont des colonnes de calcules que j'aimerais étendre.
La macro rechercherais la derniere cellule non vide en T et U, et glisserai jusqu'au niveau de la derniere non vide de A (où les valeurs viennent d'etre rajoutées)


Auriez vous une proposition ?

Si j'ai oublié de donné des informations ou alors que l'explication n'est pas claire, n'hésitez pas à me le dire.


Merci,
cordialement

Hugo