Recherche et ajoute préfixe

Bonjour,

Je souhaite trouver une macro qui permette de :

• Rechercher dans toutes les cellules d’une feuille excel le terme « mv2.jpg »
• Puis à chaque fois qu’une cellule avec ce contenu est trouvée elle insère en préfixe du contenu de la cellule : « media »

Je ne sais pas comment imbriquer find et l’ajout du préfixe.

Est-ce possible?

Merci!

Bonjour,

Voici un essai :

Sub remplace()
With ActiveSheet.Cells
    Set r = .Find("mv2.jpg", , xlValues, xlPart)
    If r Is Nothing Then Exit Sub Else addstart = r.Address
    Do
        If Not r Is Nothing Then r.Value = "media" & r.Value Else Exit Do
        Set r = .Find("mv2.jpg", r, xlValues, xlPart)
    Loop While r.Address <> addstart
End With
End Sub

ou éventuellement celui-ci s'il s'agit d'intercaler le mot media juste avant mv2.jp2 (ce dont je doute) :

Sub remplace()
With ActiveSheet.Cells
    .replace "mv2.jpg", "mediamv2.jpg", xlpart
End With
End Sub

Cdlt,