Bonjour,
Ce n'est pas une formule, c'est une procédure et elle doit être mise dans un module standard donc, Alt+F11 puis menu "Insersion"--->"Module", dans la partie d'édition du code qui vient de s'afficher, tu colles le code ci-dessous (j'ai rajouté deux lignes pour qu'il s'exécute un peu plus vite), tu reviens dans Excel, combinaison de touches Alt+F8 là, "Transfert" sera surligné dans la boite "Macro" cliques sur "Exécuter".
Sub Transfert()
Dim I As Long
Dim J As Long
Dim K As Long
K = 8
Application.Calculation = xlCalculationManual
For I = 4 To 28
For J = K To 32
Cells(J, I).Value = Cells(J + 31, I).Value
Next J
K = K + 1
Next I
Application.Calculation = xlCalculationAutomatic
End Sub