EXCEL Performance

Voici la macro à entrer pour l'utiliser :

Sub ExcelVersion()
Dim a As String
a = MsgBox("Cette macro est en cours d'exécution sous la version d'Excel n°: " & Application.Version, vbOKOnly)
End Sub

Après le démarrage, la macro fera en sorte que la version d'Excel soit affichée dans une fenêtre de dialogue comme celle-ci :

Les versions d'Excel apparaissent sous forme de code. La version 12.0 correspond à Excel 2007. Voici les codes des autres versions :

Excel 2010: 13.0
Excel 2003: 11.0
Excel XP: 10.0
Excel 2000: 9.0
Excel 97: 8.0
Excel 95: 7.0