Rechercher remplacer par formule

Bonjour,

J 'ai une macro qui ne fonctionne pas et j'ai pas la moindre idée du pourquoi ou du comment !

Voici ce que je cherche a faire.

J 'ai enregistré une macro en pas à pas en faisant CTRL+H rechercher le mot "CODE_CP" et remlacer par :

"=SOMME(INDIRECT("$H$" & LIGNE() + 1 & ":" & ADRESSE(EQUIV(INDIRECT("$A" & LIGNE());$A:$A;1);8)))"

Ca a fonctionné nickel, mon mot n'était plus la et ma formule était opérationnelle.

Seule hic, lorsque je lance la macro que j'ai enregistrée, pour l’exécuter sur un autre fichier ça ne fait RIEN du TOUT :s

Quelqu 'un sait pourquoi ca foire ?

Merci d 'avance pour vos réponses

Sub Code_CP()

    Columns("H:H").Replace What:="CODE_CP", Replacement:= _
        "=SOMME(INDIRECT(""$H$"" & LIGNE() + 1 & "":"" & ADRESSE(EQUIV(INDIRECT(""$A"" & LIGNE());$A:$A;1);8)))" _
        , LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat _
        :=False, ReplaceFormat:=False

End Sub

Bonjour

Sub Remplacer()
Dim Cel As Range, MaValeur As Variant
MaValeur = "CODE_CP"
Range("H2:H" & [h65000].End(xlUp).Row).Select
For Each Cel In Selection
If Cel = MaValeur Then
Cel.FormulaR1C1 = "=SUM(INDIRECT(""$H$"" & ROW() + 1 & "":"" & ADDRESS(MATCH(INDIRECT(""$A"" & ROW()),C1,1),8)))"
End If
Next Cel
End Sub

Cordialement

Bonjour Amadéus

Ça a fonctionné nickel ! Merci beaucoup En plus je garde le code pour plus tard car ça va surement me resservir !