Problème lenteur Excel 2007

Bonjour,
Depuis le passage des postes sous Win Visat avec Office 2007, les macros s'executant sont vraiment plus longue. Pour exemple le code suivant qui se charge d'écrire dans une cellule s'execute instantanement sous Office 2000 alors que sous Office 2007 prend 8 à 10 sec.. Si quelqu'un a une idée sur le pourquoi de cette lenteur?
D'avance merci

Voici l'exemple de code
Public Sub WriteData()
Dim Cellule As Range
Dim CompteurCellule As Long
Dim MaDeltaDebut As Date, MaDeltaFin As Date

' MODIF CELLULE EXCEL
Dim vntCellule() As Variant
Dim lngI As Long
Dim ColJ As Long
''''''''''''''''''''''''''''''''

CompteurCellule = 0
w_Test.Range("TE_ZDebutEcriture").Offset(0, 0).Value = "Début écriture: " & Now
Debug.Print "Début écriture: " & w_Test.Range("TE_ZDebutEcriture").Offset(0, 0).Value

' MODIF CELLULE EXCEL
ReDim vntCellule(1 To 65536, 1 To 1)
For lngI = 1 To 65536
For ColJ = 1 To 1
vntCellule(lngI, ColJ) = Rnd * 100
Next ColJ
Next lngI
w_Donnees.Range(w_Donnees.Cells(1, 1), w_Donnees.Cells(65536, 1)).Value = vntCellule
'''''''''''''''''''''''''''''

' MISE EN COMMENTAIRE CELLULE EXCEL
' For Each Cellule In w_Donnees.Range(w_Donnees.Cells(1, 1), w_Donnees.Cells(65536, 1)).Cells
' Cellule.Value = Rnd * 100
' CompteurCellule = CompteurCellule + 1
' Next Cellule
'''''''''''''''''''''''''''''''''''''''''''''

Sortie:
w_Test.Range("TE_ZDebutEcriture").Offset(1, 0).Value = "Fin écriture: " & Now
MaDeltaDebut = Right(w_Test.Range("TE_ZDebutEcriture").Offset(0, 0), 8)
MaDeltaFin = Right(w_Test.Range("TE_ZDebutEcriture").Offset(1, 0), 8)
w_Test.Range("TE_ZDeltaEcriture").Value = Format(((MaDeltaDebut - MaDeltaFin)), "HH:MM:SS")
Debug.Print "Fin écriture: " & w_Test.Range("TE_ZDebutEcriture").Offset(1, 0).Value
Debug.Print "Delta: " & Right((MaDeltaDebut - MaDeltaFin), 8)

Exit Sub

End Sub