Appliqer formule sur les dernières ligne de chaque colonne

Bonjour, débutant sur VBA, j'essaye de copier la derniere ligne de la colonne sur la cellule vide d'en dessous puis transformer la cellule en valeur. Mais je n'arrive pas faire une boucle ( je commencer de la colonne D à la colonne I):

Voici le code:

Application.ScreenUpdating = False

'Colonne D

Range("D" & Rows.Count).End(xlUp).Offset(0).Select

Selection.Copy

Range("D" & Rows.Count).End(xlUp).Offset(1).Select

ActiveSheet.Paste

Range("D" & Rows.Count).End(xlUp).Offset(-1).Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

'Colonne E

Range("E" & Rows.Count).End(xlUp).Offset(0).Select

Selection.Copy

Range("E" & Rows.Count).End(xlUp).Offset(1).Select

ActiveSheet.Paste

Range("E" & Rows.Count).End(xlUp).Offset(-1).Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

... etc... jusqu'à la colonne I

quelqu'un sait comment simplifier ça ?

merci beaucoup et bonne journée à vous tous

Bonjour et

Bonjour merci bcp

c'est une fichier modifié mais le voici

Bonjour,

Je ferais un truc du genre

Sub test()
Dim dernligne As Long
dernligne = Range("D" & Rows.Count).End(xlUp).Row
Range(Cells(dernligne, 4), Cells(dernligne, 9)).AutoFill Destination:=Range(Cells(dernligne, 4), Cells(dernligne + 1, 9)), Type:=xlFillDefault
Range(Cells(dernligne, 4), Cells(dernligne, 9)).Value = Range(Cells(dernligne, 4), Cells(dernligne, 9)).Value
End Sub

J'ai un peu galéré, donc vu mes limites en VBA, mais ça a l'air de marcher

Oui ça marche! Merci beaucoup pour votre aide !!!

juste c'est quelle ligne de VBA qui te permet de décaler ça à chaque colonne ?

Merci merci merci merci

Bonne journée à vous tous

N'hésite pas à passer en résolu si c'est tout bon.

C'est fait merci