Bonjour Amadeus,
ça le fait!
Juste qu'il faut remettre en place le terme Montant_TA après impression du courrier.
Ce qui donne au final:
With Sheets("Merci")
' Ecriture de l'adresse
.Range("G8") = Entreprise
.Range("G9") = Rue
.Range("G10") = CP & " " & Ville
'------------------------------------------------------------------
'recherche dans la zonetexte 1 le mot Montant_TA
'et inscrit le montant
Sheets("Merci").Shapes("Zonetexte 1").Select
With Selection
Courrier = Replace(.Characters.Text, "Montant_TA", Valeur)
.Characters.Text = Courrier
End With
'Impression du courrier
.PageSetup.PrintArea = .Range("$A$1:$J47").Address
.PrintOut
' situation inverse, remet en place le terme Montant_TA
Sheets("Merci").Shapes("Zonetexte 1").Select
With Selection
Courrier = Replace(.Characters.Text, Valeur, "Montant_TA")
.Characters.Text = Courrier
End With
End With
Merci pour le coup de main.
ddetp