Salut,
Testes ceci en le collant dans un module standard:
Ton nombre ou texte est tapé en A1, on insére l'image dans la feuille , pour la visualiser utilises thisworbook.followhyperlinks t
Sub InsertionImg()
Dim T
T = ChercheFichier("*" & [A1] & ".jpg")
If Not IsEmpty(T) Then ActiveSheet.Pictures.Insert (T)
End Sub
'Tu peux modfiier Rep par C:\Mesimages et ne pas rechercher dans les sous répertoire en mettant sourep à false.
Function ChercheFichier(Extension$, Optional Rep$ = "C:\", Optional Sourep As Boolean = True)
On Error Resume Next
With Application.FileSearch
.NewSearch
.LookIn = Rep
.Filename = Extension
.SearchSubFolders = Sourep
.Execute
ChercheFichier = .FoundFiles(1)
End With
End Function
A+++