Comment savoir avec quelle version d'excel un fichier a été enregistré ?

sub VersionFichier()
  Select Case ActiveWorkbook.FileFormat
    Case -4143
        typ = "Excel 2000"
    Case 16
        typ = "Excel 2.1"
    Case 29
        typ = "Excel 3"
    Case 33
        typ = "feuille Excel 4"
    Case 35
        typ = "classeur Excel 4"
    Case 39
        typ = "Excel 5"
    Case 43
        typ = "Excel 97/2000& 5/95"
    Case Else
       typ = "inconnu"
  End Select
    MsgBox "format:" & typ
 end sub