Petit soucis pour placer une procédure

'SupprimeToutesLesMacros
'SupprToutCodeVBA
'macro1 'Supprime Barre Outil Perso

'---------------------------------------------------------------------------------------
' Procedure : CommandButton10_Click
' Author    : Christian
' Date      : 19/03/2010
' Purpose   :Sauvegarde du fichier Word
'---------------------------------------------------------------------------------------
'
Private Sub CommandButton10_Click()
Dim Chemin1$, Dossier$, Fichier$, Société$, Nom$, Prénom$, Attention$
Dim Réf$, Data$, Divers$, Adress1$, Adress2$, CP$, Ville$, sousdossier2$
Dim rep As String
Dim ter As String
Chemin1 = TextBox13 '********"F:\Mes Documents Cat\,\Mes Courriers\"
Dossier = TextBox1
Société = TextBox2
Nom = TextBox3
Prénom = TextBox4
Attention = TextBox7
Réf = TextBox5
Data = TextBox6
Divers = TextBox8
Adress1 = TextBox9
Adress2 = TextBox10
CP = TextBox11
Ville = TextBox12

Application.ScreenUpdating = False

rep = MsgBox("Enregistrer Votre Document", vbYesNoCancel + vbInformation, "Attention Enregistrement")
Select Case rep
Case vbYes

Application.DisplayAlerts = False

Fichier = Société & " " & Nom & " " & Réf & " " & Data _
& " " & Adress1 & " " & CP & " " & Ville & ".doc"

If Dir$(Chemin1$ & "\" & Dossier$ & "\" & Fichier, vbDirectory) <> "" Then
MsgBox "Le dossier existe..."
'Cancel = True
Exit Sub
Unload Me
Else
MsgBox "Le dossier n'existe pas!"
End If
sousdossier2 = ActiveDocument.path

ActiveDocument.SaveAs Chemin1 & Dossier & "\" & Fichier
ActiveDocument.SaveAs sousdossier2 & "\ModéleV2" & ".doc"
'SupprimeToutesLesMacros
'SupprToutCodeVBA
'macro1 'Supprime Barre Outil Perso

MsgBox "Fichier enregistré dans:" & vbCrLf _
  & Chemin1 & vbCrLf _
  & Label3 & "   " & Société & vbCrLf _
  & Label4 & "   " & Nom & vbCrLf _
  & Label10 & "   " & Réf & vbCrLf _
  & Label9 & "   " & Data & vbCrLf _
  & Label6 & "   " & Adress1 & vbCrLf _
  & Label8 & "   " & CP & vbCrLf _
  & Label13 & "   " & Ville, vbInformation + vbOKOnly, "Votre Fichier va être Enregistré dans ce Dossier "

Case vbNo
Exit Sub

Case vbCancel
Exit Sub
End Select
'Set objDoc = Application.Documents.Open("F:\Mes Documents Cat\Formation logiciels\Excel\Document Word Modéle  avec Bdd Excel Chris Démo\Modele.doc")


End Sub