Macro - erreur d'exécution

Bonjour,

J'ai un fichier Excel avec une macro qui bug : "Erreur d'exécution 1004" Quelqu'un aurait une solution?

De plus, j'aimerais protéger la feuille par un mot de passe pour avoir accès uniquement à certaines cellules "Sélectionner les cellules déverouillées" mais lorsque je protège la feuille le bouton de la macro passe en mode protéger et bug.

Je ne trouve pas la solution.

Merci d'avance pour votre aide.

Bonjour,

Une proposition à étudier.

Cdlt.

Sub Ajouter_employe()
Dim n As Long
    Application.ScreenUpdating = False
    Worksheets("Formulaire").Unprotect Password:=""
    Worksheets("Formulaire").Range("A2:BI2").Copy
    With Worksheets("BDD")
        n = Worksheets("BDD").Cells(Rows.Count, 1).End(xlUp).Row + 1
        .Cells(n, 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    End With
    Application.CutCopyMode = False
    With Worksheets("Formulaire")
        .Range("B5,D5,F5,B8,D8,F8,B11,D11,F11,B41,D14,B17,D17,F17,B20,D20,F20,B23,D23,B26,D26,B29,D29").ClearContents
        .Range("B34,D34,F34,B37,D37,F34,B37,D37,B40,D40,F40,B43,D43,F43,B46,D46,B49,D49,B52,B55,D55,F55").ClearContents
        .Range("B60,D60,F60,B63,D63,F63,B66,D66,F66,B69,D69,F69,B73:F77,B82,D82,F82,B86,D86,F86").ClearContents
    End With
    Worksheets("Formulaire").Protect Password:="", userinterfaceonly:=True
End Sub

Bonjour Jean-Eric,

Merci beaucoup pour votre aide la macro fonctionne très bien cependant j'aimerais que la cellule D14 (calcule de l'âge auto) se remette à 0 sans pour autant suppr la formule (=AUJOURDHUI()-B14), même chose pour la cellule F86 (=AUJOURDHUI()) et F82 (=RECHERCHEV(F8;Paramètres_Chal!A1:B2326;2;0) est-ce possible ?

Merci encore pour votre aide !

Bonjour,

Tu supprimes les adresses inutiles ?

Sub Ajouter_employe()
Dim n As Long
    Application.ScreenUpdating = False
    Worksheets("Formulaire").Unprotect Password:=""
    Worksheets("Formulaire").Range("A2:BI2").Copy
    With Worksheets("BDD")
        n = Worksheets("BDD").Cells(Rows.Count, 1).End(xlUp).Row + 1
        .Cells(n, 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    End With
    Application.CutCopyMode = False
    With Worksheets("Formulaire")
        .Range("B5,D5,F5,B8,D8,F8,B11,D11,F11,B41,B17,D17,F17,B20,D20,F20,B23,D23,B26,D26,B29,D29").ClearContents
        .Range("B34,D34,F34,B37,D37,F34,B37,D37,B40,D40,F40,B43,D43,F43,B46,D46,B49,D49,B52,B55,D55,F55").ClearContents
        .Range("B60,D60,F60,B63,D63,F63,B66,D66,F66,B69,D69,F69,B73:F77,B82,D82,B86,D86").ClearContents
    End With
    Worksheets("Formulaire").Protect Password:="", userinterfaceonly:=True
End Sub

Bonjour,