Sub centrée()
ligne = ActiveCell.Row
colonne = ActiveCell.Column
If ligne < 21 Or colonne < 12 Then
MsgBox "impossible de centrée la cellule " & ActiveCell.Address(0, 0)
Exit Sub
End If
ActiveWindow.ScrollRow = ligne - 20
ActiveWindow.ScrollColumn = colonne - 11
End Sub