Bonjour Fred, Daniel et le Forum
Tout en étant pas très sûr de ce que tu souhaites vouloir faire Fred, mais en essayant d'être plus détaillé que Daniel voici ce que je propose.... A voir si celà s'oriente vers ce que tu cherches...
Sub Fred()
Dim MyArray
Dim Feuille As String
Dim i As Byte
MyArray = Array("Toto", "Tata", "Tutu")
i = InputBox("Tapez un nombre de 0 à 2", "Information à Renseigner", 0)
Feuille = MyArray(i)
MsgBox Feuille
End Sub
Bien sûr à titre de test et sans gestion d'erreur si on tape autre chose que 0, 1 ou 2...
Bon Après Midi
@+Thierry