Ralentir l'exécution d'un macro

Bonjour,

Je souhaiterai que ma macro s'exécute moins vite, explications :

En fait, j'aimerais que lorsque j'arrive sur la feuille sélectionnée que le titre s'affiche :

soit lentement
soit se mette à clignoter pour attirer l'oeil du lecteur.

Comment faire ?
Merci pour votre aide.
A+

Thierry


voici le code VBA car le serveur de ma société bloque les macros... grrrr !!!! ;-)

Sub tabp1()
'
' tabp1 Macro
' Macro enregistrée le 16/09/2005 par CHAUVIER-00430
'

'
Sheets('P').Select
Range('A1').Select
Selection.Font.ColorIndex = 3
Range('A1').Select
ActiveCell.FormulaR1C1 = 'Accueil Physique'
Range('A1:B1').Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = True
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = True
End With
Selection.Merge
Selection.Font.ColorIndex = 1
Selection.Font.ColorIndex = 3
End Sub
Sub tabp2()
'
' tabp2 Macro
' Macro enregistrée le 16/09/2005 par CHAUVIER-00430
'

'
Range('A1').Select
Selection.Font.ColorIndex = 3
End Sub