Private Sub Worksheet_Change(ByVal sel As Range)
If Not Intersect(sel, Range("[b]B1[/b]")) Is Nothing Then ' remplacer B1 par la cellule de saisie du numéro
Dim rep As String
rep = "[b]C:\Mes documents\Mes images\[/b]" ' remplacer par le chemin du répertoire photos
With Sheets("[b]feuil2[/b]") ' remplacer par nom de la feuille où l'on insère la photo
.Range("[b]C1[/b]").Select ' remplacer par nom de la cellule où l'on insère la photo
.Pictures.Insert (rep & Range("[b]D1[/b]").Value & ".JPG")
End With ' remplacer par nom de la cellule où l'on trouve le prénom
End If
End Sub