Bonjour,
Je vous met le code que j'utilise et le fichier.
Je cherche à descendre plus bas que ma ligne visée, puis remonter grace à une valeur calculé avec =LIGNE.
Mais la ligne se retrouve au milieu de la fenêtre, je suis obligé d'ajuster avec une valeur pour la faire remonter, mais si je change de résolution d'écran (Travail sur un autre poste de travail) cela ne fonctionne plus.
Sub Déplacement_1()
NLigne = Sheets("Feuil1").Range("N2").Value
Range("A1000").Select
Range("A" & NLigne).Select
Application.ScreenUpdating = False
Range("AA100").Select
Application.ScreenUpdating = True
End Sub