Perte des données copier coller après protection du doc en

Bonjour à tous,

Je travail sous word 2003

Voici mon problème :

J’ai une petite macro qui reproduit ma feuille à la suite de la première page en X fois suivant ma demande.
Au départ mon doc et protégé.
Il n’y a que les champs formulaire accessibles.

Lorsque je lance cette macro tous se passe bien, j’ai bien tous mes exemplaires demandés, mais…

Lorsque le document est reprotégé, je perds toutes les données qui étaient dans les champs du formulaire sur toutes les feuilles !

Avez-vous une solution pour ne pas perdre les informations ?

Voici le code utilisé :

Sub copier_coller_feuille()

Dim nombre_copie As String 'A voir si as string est ok

nombre_copie = InputBox("combien de document faut-il copier ?") 'La variable reçoit la valeur entrée dans l'InputBox

'retrait protection
If ActiveDocument.ProtectionType <> wdNoProtection Then
ActiveDocument.Unprotect Password:="jlejle"
End If

'changement couleur papier en vert
ActiveDocument.Background.Fill.ForeColor.RGB = RGB(204, 255, 204)
ActiveDocument.Background.Fill.Visible = msoTrue
ActiveDocument.Background.Fill.Solid

'selection de ma feuille et copie du nombre demandé
    Selection.WholeStory
    Selection.Copy
    
    For i = 1 To nombre_copie
    Selection.PasteAndFormat (wdPasteDefault)
    Next i

    Selection.TypeBackspace
    
'protection du document
If ActiveDocument.ProtectionType = wdNoProtection Then
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, Password:="jlejle"
End If

' changement couleur papier en blanc
ActiveDocument.Background.Fill.ForeColor.RGB = RGB(255, 255, 255)
ActiveDocument.Background.Fill.Visible = msoTrue
ActiveDocument.Background.Fill.Solid
    
End Sub

>

En vous remerciant par avance de votre aide.

Bien cordialement