Microsoft 365 code que je n'arrive pas à modifier

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite un beau dimanche 🙂

Il y a quelques temps, job75 m'avait donné un code qui fonctionne parfaitement :

Sub Gérard()
With [A1].CurrentRegion
    If .Rows.Count > 1 Then .Cells(3, 9).Resize(.Rows.Count - 1) = "=IF(RC[-1]<>"""",LOOKUP(RC[-1],km),"""")"
    .Columns(9) = .Columns(9).Value 'supprime les formules
End With
End Sub

Ce code copie des valeurs jusqu'à la dernière ligne NON VIDE de la colonne précédente

J'ai besoin d'y apporter une modification que je n'arrive pas à coder

A la place de = "=IF(RC[-1]<>"""",LOOKUP(RC[-1],km),"""")"
je voudrais remplacer LOOKUP(RC[-1],km) par la formule =RC[-3]"

Pourriez-vous me donner le bon code ?
Je vous remercie,
Amicalement,
lionel 🙂

 

[fanch55]

Salut,
Avec seulement RC[-3] ( sans le signe égal ), cela devrait fonctionner ...

 

[Usine à gaz]

Bjr et merci à toi, je vais tester et je reviens 🙂
lionel,

 

[Usine à gaz]

Re,
J'ai du me planter ça ne fonctionne pas :

et sans le "=" ça beug aussi 😡

 

[Usine à gaz]

Si, c'est bon, je m'étais planté mon doigt avait glissé sur une ")' lol 🙂