Sub TestChemins()
With Application
MsgBox "Chemins de démarrage: " & .StartupPath & vbCrLf & _
"autre chemin de démarrage: " & .AltStartupPath & vbCrLf & _
"chemin des fichier par défaut: " & .DefaultFilePath & vbCrLf & _
"Chemin des librairies par défaut: " & .LibraryPath & vbCrLf & _
"Chemin des fichiers modèles: " & .TemplatesPath & vbCrLf & _
"Chemin réseau des fichiers modèles: " & .NetworkTemplatesPath
End With
End Sub