Sub Version_Office()
Dim VOf
VOf = Val(Application.Version)
Select Case VOf
Case 8: MsgBox "Vous utilisez Excel 97", , "Microsoft Office"
Case 9: MsgBox "Vous utilisez Excel 2000", , "Microsoft Office"
Case 10: MsgBox "Vous utilisez Excel 2002", , "Microsoft Office"
Case 11: MsgBox "Vous utilisez Excel 2003", , "Microsoft Office"
Case 12: MsgBox "Vous utiliser Excel 2007", , "Microsoft Office"
Case 14: MsgBox "Vous utilisez Excel 2010", , "Microsoft Office"
Case Else: MsgBox "Version Inconnue.", , "Microsoft Office"
End Select
End Sub