Bonjour,

Dans une macro (je ne suis pas trés doué et utilise l'enregistrement de macro) je souhaite qu'une formule soit étendu jusqu'à la dernière ligne de mon tableau.
Dans ma feuille de calcul ce cas ce présente pour plusieurs colonne pas obligatoirement à coté les unes des autres.
J'ai essayé pour chacune de mes colonnes mais sans succés.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
    Dim DernLigne As Long
    DernLigne = Range("D" & Rows.Count).End(xlUp).Row
 
    With Sheets("Données triées")
        .Range("D2").FormulaR1C1 = "=RC[-1] & "" "" & RC[-2]"
        .Range("D2").AutoFill .Range("D2:D" & DernLigne)
    End With
Merci pour vos conseils.