Bonsoir,
Pourquoi veux-tu reprendre la main ? si c'est pour récupérer le contenu d'une cellule, il faut utiliser la méthode InputBox plutôt que la fonction InputBox :
Sub Test()
' La méthode InputBox permet la sélection d'une cellule
x = Application.InputBox("Quelle cellule ?")
' Pas possible avec cette fonction
y = InputBox("Quelle date ?")
End Sub
Sinon tu n'as pas d'autre choix de de passer par un userform en mode non modal
UF.Show vbModeless