J'ai testé et cela ne fonctionne pas sur mon fichier.
Dans le code (mis en copie), vous indiquez Sheets ("Feuil2") sur lequel se trouve l'image et aussi Range ("B5") sur lequel vous indiquez destination en jaune sur la feuille 1. Pourquoi faire référence à deux feuilles sur votre code ? Merci de vos explications.
Sub Macro1()
'
' Macro1 Macro
Dim Password As String
Password = Application.InputBox(prompt:="Entrez le mot de passe", Title:="Verrouillage", Default:="", Type:=2)
If Not (Password = "PICSOU") Then
MsgBox "Erreur mot de passe, vérifiez majuscule", , "test"
Exit Sub
End If
Sheets("Feuil2").Select
Range("B5").Select
End Sub