Macro Word : enregistrer copie document

Bonjour,

Lorsque que je vais dans Enregistrer sous puis que je donne un nom de mon document Word, j'aimerai qu'il s'enregistre à la fois dans le dossier que je lui ai demandé et dans un dossier commun à tous les documents. Et sans avoir à aller dans outils > macro, que ça se fasse automatiquement.

Exemple :
je veux enregistrer mon document sur mon pc dans mes documents dans le dossier1
je fais control S (par exemple ou un autre raccourci qu'importe)
et une copie se crée automatiquement sur ma clé usb
l'idéal, si c'est possible, serait que ça se fasse automatiquement sans que j'ai à faire quoi que ce soit, c'est à dire, j'enregistre mon document et word en fait une copie dans sur la clé en arrière plan.

Est-ce possible ?

J'ai trouvé sur le net cette macro faite par un internaute mais il faut à chaque fois activer la macro après avoir enregistré notre documnet pas très pratique... Et je n'y comprends rien pour la modifier...

[code]Public Sub Sauvegarde()

ActiveDocument.Save

Dim strDocName As String
Dim intPos As Integer

strDocName = ActiveDocument.Name
intPos = InStrRev(strDocName, ".")

strDocName1 = Left(strDocName, intPos - 1)
strDocName1 = "D:\" & strDocName1 & ".doc"

ActiveDocument.SaveAs FileName:=strDocName1
ActiveDocument.Close True
Set objDoc = Application.Documents.Open(strDocName)

End Sub[/code]

Si l'un d'entre vous pouvez m'éclairez là-dessus...

Je vous en remercie beaucoup par avance.

Bonne journée.
-----------
Lorina