Bonjour Àpoil, bonjour le forum,
Essaie comme ça :
Sub Macro1()
Dim LI As Variant 'déclare la variable LI (LIgne)
'définit la ligne LI
LI = Application.InputBox("Quelle Ligne voulez-vous atteindre ?", "ATTEINDRE", Type:=2)
Select Case LI 'agit en fonction de la valeur de LI
'cas bouton "Annuler", non renseignée, inférieur ou égale à zéro, supérieure au nombre de ligne
Case False, "", Is <= 0, Is > Application.Rows.Count
Exit Sub 'sort de la procédure
Case Else 'tous les autres cas
ActiveWindow.ScrollRow = LI 'place la ligne LI en premier dans l'écran
Cells(LI, "A").Select 'sélectionne la celliel ligne LI colone A
End Select 'fin de l'action en fonction de la valeur LI
End Sub
Mais tu obtiens pratiquement la même chose en tapant directement l'adresse de la cellule dans la Zone Nom sans aucune macro !...