Maco bizzard suivant excell

bonjour

Voila j'ai une macro qui fonctionne trés bien avec excell98 mais qui bug avec excell 2003
.........................
Sub lignehac()
' lignehac Macro

Application.ScreenUpdating = False
Sheets('Feuil1').Select
Range('1:1,5:5,9:9,13:13').Select
Range('A13').Activate
ActiveWindow.SmallScroll Down:=10
Range('1:1,5:5,9:9,13:13,17:17,21:21').Select
Range('A21').Activate
ActiveWindow.SmallScroll Down:=7
Range('1:1,5:5,9:9,13:13,17:17,21:21,25:25').Select
Range('A25').Activate
With Selection.Font
.Name = Sheets('Impression de masse').Range('G18').Value

.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range('A29').Select

Sheets('Impression de masse').Select
Range('F23').Select
Application.ScreenUpdating = True
End Sub
..........................................
Elle bug au niveau de
.Name = Sheets('Impression de masse').Range('G18').Value avec excell 2003

Auriez vous une idée pour que cette macro fonctionne sous les deux versions d'excell.

merci par avance
cordialement
Ðidier