Sub Test()
Dim i As Long, res() As Range, pathJpg As String, myFso As Object, img As InlineShape
'lancer la recherche des textes entre '£'
res = LaunchSearch(ActiveDocument.Range, "£*£", True)
Set myFso = CreateObject("Scripting.FileSystemObject")
'boucler sur les résultats
For i = LBound(res) To UBound(res)
If res(LBound(res)) Is Nothing Then Stop 'si arrêt, on n'a rien trouvé dans le document
'créer le path de l'image à insérer et contrôler si elle existe
pathJpg = ActiveDocument.Path & "\images\" & Replace(res(i).Text, "£", "") & ".jpg"
If Not myFso.FileExists(pathJpg) Then Stop 'si arrêt, l'image n'a pas été trouvée
res(i).Text = vbNullString 'supprimer le texte entre les '£'
res(i).InsertParagraphBefore 'insérer des paragraphes avant et après
res(i).Next.InsertParagraphAfter
res(i).Next.ParagraphFormat.Alignment = wdAlignParagraphCenter 'centrer
Set img = res(i).Next.InlineShapes.AddPicture(pathJpg, False, True) 'ajouter l'image
Next i
End Sub