Déplacer cellule active

Bonjour Philippe.

Voici, sous toutes réserves, une suggestion pour centrer la cellule active.

Gérard

'#################
'Dans un module, déclarer la variable globale Occuper
Global Occuper As Boolean
'#################

'#################
'Dans ThisWorkBook
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Excel.Range)

If Occuper = True Then Exit Sub
Occuper = True

Dim ColonnesVis As Single
Dim RangeesVis As Single
Dim Premiere As String

ColonnesVis = ActiveWindow.VisibleRange.Columns.Count
RangeesVis = ActiveWindow.VisibleRange.Rows.Count

Premiere = "R" & Target.Row & "C" & Target.Column

Application.Goto Reference:=Premiere, Scroll:=True

ActiveWindow.SmallScroll Up:=RangeesVis 2, Toleft:=ColonnesVis 2

Target.Select

Occuper = False

End Sub
'#################

"Philippe SYLVIAN" <am64@club-internet.fr> wrote in message
news:409d38c4$0$314$7a628cd7@news.club-internet.fr...

Bonjour à tous

Une petite question simple, enfin je pense

Comment scroller la fenetre en vba après avoir modifier la cellule active
??

Merci à tous

Philippe