Bonjour Cedric, bonjour le forum,
Par formule je ne sais pas faire mais je te propose un solution VBA avec le code ci-dessous :
Sub Macro1()
Dim O As Worksheet 'décalre la variable O (Onglet)
Dim DL As Long 'décalre la variable DL (Dernière Ligne)
Dim OF As String 'décalre la variable OF (Onglet de la formule)
Dim AF As String 'décalre la variable AF (Adresse de la Formule)
Set O = Worksheets(1) 'définit l'onglet O
DL = O.Range("A" & Application.Rows.Count).End(xlUp).Row 'définit la dernière ligne édité DL de la colonne 1 (=A) de l'onglet O
For Each CEL In O.Range("A1:A" & DL) 'boucle sur toutes les cellules éditées CEL de la colonne 1
OF = Split(CEL.Formula, "!")(0) & "!" 'définit l'onglet de la formule OF
AF = Split(CEL.Formula, "!")(1) 'définit l'adresse de la formule AF
CEL.Offset(0, 1).Formula = OF & Range(AF).Offset(-1, 0).Address(0, 0) 'renvoie la formule dans CEL décalée d'une colonne à doite
Next CEL 'prochaine cellule de la boucle
End Sub