Private Sub TextBox2_Change()
Dim chemin As String
'on definit une variable en taille, le dim au dessus, et sa valeur, la ligne en dessous
chemin = TextBox2.Value 'donc chemin = le nom
'pour afficher l'image, nous avons la ligne suivante
UserForm1.Image1.Picture = LoadPicture("Z:\home\Athlétisme\11 - Photos\" & chemin & ".jpg")
'ou nous retrouvons le repertoire par defaut des images et notre variable
End Sub