Private sub Workbook_open()
Dim username As String
Dim path As String
Dim filepath as String
filepath = ThisWorkbook.Path & "\suivi.xltm"
username = Environ("username")
path = "C:\Documents and Settings\" & username & "\Application Data\Microsoft\Modèles"
'copier/coller ici
End Sub