Bonjour

Une première approche avec ce code

Public valeur as string
Sub test()
Rep = MsgBox("Saisir l'album" & "Continuer ?", vbYesNo + vbQuestion)

If Rep = vbYes Then
    valeur = Application.InputBox(prompt:="Entrer votre valeur")
Else
   MsgBox "Procédure terminée", vbInformation
End If
If valeur = True Then
MsgBox "ok"
End If
End Sub

Par la déclaration en en-tête de module, la variable "valeur" pourra être réutilisée ailleurs dans ton projet et ce, jusqu'à ce que tu fermes ton fichier

A te relire sur cette proposition

Crdlt