macro, position LIGNE oû se trouve le curseur

Bonjour,

A placer dans l'événnement SelectionChange:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWindow.ScrollRow = ActiveCell.Row
End Sub

Cordialement JB

Bonjour à tous............................Bonjour jb,

Merci de ta réponse positive...!!...........Bonne Journée...!!

Faisant partie des non initiés, à la lecture de ta macro, je me suis dit
que, ( A placer dans l'évènement SelectionChange: ), c'était au dessus de
mon savoir faire, ne sachant pas ce que cela voulait dire,

Mais j'ai persité, et est simplement inseré la ligne de code :

ActiveWindow.ScrollRow = ActiveCell.Row

Et aprés quelques essais de positionnement, et bien je constate, que çà
fonctionne parfaitement et comme je le recherchais,

Merci du résultat, c'est parfait,........Voici donc la macro modifiée, et
ceci pour information,
'-----------------------------------
Sub Souligné_Titre()
'
On Error GoTo Sortie
Selection.Copy
ActiveWindow.ActivateNext
ActiveSheet.Paste
Application.CutCopyMode = False

ActiveWindow.ScrollRow = ActiveCell.Row

ActiveCell.Range("A1").Select
ActiveCell.Offset(2, 0).Range("A1").Select
Sortie:
End Sub
'-----------------------------------

Cordialement............encore un grand Merci...!!..............DC

"jb" <boisgontier@hotmail.com> a écrit dans le message de news:
1132903982.468555.7200@g47g2000cwa.googlegroups.com...
Bonjour,

A placer dans l'événnement SelectionChange:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWindow.ScrollRow = ActiveCell.Row
End Sub

Cordialement JB