Salut,

Option Explicit

Sub affiche()
    Dim iNbAs Integer
    
    With Sheets("a")
        iNb = InputBox("Affiche Feuille N° " & _
               .Range("b1"), , .Range("b1").Value)
    End With
    Sheets(CStr(iNb)).Select
End Sub

Re,
Mos cracuim

Attention à l'orthographe :-))
Moş Crăciun

Nu uita sa adaptezi codul la cazul tau :-))

Deci InputBox citeste continutul celulei B1 de pe foaia a
La tine este celula D18 de pe foia Données minimales

La Multi Ani şi tie!!! lami20j

Oups, la charte :-DDD

Nu uita sa adaptezi codul la cazul tau :-))

Deci InputBox citeste continutul celulei B1 de pe foaia a
La tine este celula D18 de pe foia Données minimales

ça veut dire

A ne pas oublier d'adapter le code à ton cas.

Donc InputBox lit le contenu de la cellule B1 de la feuille a
Chez toi c'est la cellule D18 de la feuille....

lami20j