Option Compare Text
Private Sub CommandButton1_Click()
If TextBox1.Text = "XXXX" Then
Image1.Picture = LoadPicture("C:\Users\PAPA\Documents\Mes fichiers reçus\cpc464.jpg")
Else:
Image1.Picture = LoadPicture("C:\Users\PAPA\Documents\Mes fichiers reçus\autrephoto.jpg")
End if
End Sub