Dim Repertoire As String
Dim Fichier As Variant
Dim MotCle As String
Dim DesiredWidth As Double
Dim DesiredRatio As Double
Dim image As Shape
Application.FileDialog(msoFileDialogOpen).Show
Fichier = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)
MotCle = InputBox("Entrer le mot clé", "Choix de l'emplacement")
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.MatchWildcards = True
.Text = MotCle
Do While .Execute
Set image = ActiveDocument.Shapes.AddPicture(FileName:=Fichier)
With image
.WrapFormat.Type = 3
.ZOrder 5
.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
.Left = wdShapeCenter
End With
Loop
End With