Macro ouvrir et fermer toutes les feuilles

Bonjour la communauté,

j'ai un souci avec la macro ci-dessous qui plante au premier lancement et pas au second.. je sais c'est probablement débile mais je trouve pas l'erreur.

D'autre part, ne serait il pas plus simple de mettre un code pour déprotéger toutes mes feuilles en début de chaque macro et reprotéger en fin de macro ?

Merci pour vos avis éclairés

Bien cordialement,

Sub CopieUilisation()
    Sheets("DetailCarte").Select

    ActiveSheet.Unprotect "0603"

   'trouve la dernière ligne occupée
    FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
   'à partir de la ligne 24 jusqu'à dernière
    For x = 24 To FinalRow
        'copie les 13 colonnes sur la feuille baseUti sur les premières lignes libre
        ThisValue = Cells(x, 13).Value
        If ThisValue > 0 Then
            Cells(x, 1).Resize(1, 14).Copy

            Sheets("BaseUti").Select
            ActiveSheet.Unprotect "0603"

            NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
            Cells(NextRow, 1).Select

            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

            Sheets("DetailCarte").Select
        ElseIf ThisValue = "" Then

        End If
    Next x

    'copie Utilisation des points sur baseUti
   Sheets("DetailCarte").Select
   Range("a17:j17").Copy

    Sheets("BaseUti").Select

            LastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
            Cells(LastRow, 1).Select

      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

   'copie la formule colonne O

 Range("O1").Select
    Selection.AutoFill Destination:=Range("O1:o10000"), Type:=xlFillDefault
    Range("O1:O10000").Select

       ActiveSheet.Protect Password:="0603", _
                        UserInterfaceOnly:=True, _
                        AllowFiltering:=True

 Sheets("DetailCarte").Select
 Range("d3").Activate

 Call AffichDetailCarte

  ActiveSheet.Protect Password:="0603", _
                        UserInterfaceOnly:=True, _
                        AllowFiltering:=True

End Sub

Bonjour,

Pourrais-tu envoyer ton fichier ou un extrait avec quelques données (anonymisées si besoin) pour faire fonctionner le code ?

Bonjour,

problème résolu avec une macro lancée en ouverture et fermeture de toutes mes macros. Plus d'instructions perdue au milieu d'une macro... du coup plus de plantage.

Sub DeprotegerPourCopieUti()
Worksheets("DetailCarte").Unprotect "mot de passe"
Worksheets("BaseUti").Unprotect "mot de passe"

Merci tout de même !

Belle journée