Bonjour !

Je viens vers vous car j'ai une erreur lors de l'exécution d'un code, et je ne comprends pas pourquoi.
A l'ouverture du fichier, ma macro calcule un stock restant en fonction de plusieurs conditions, puis renvoie la valeur dans une cellule
Pour que la macro se lance a l'ouverture je l'ai placé dans la fiche "ThisWorkbook"
Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Workbook_Open()
    Dim i, Somme As Long
    
    With Sheets("Fiche de vie")
        For i = 6 To 1000
            If IsDate(Cells(i, 1)) And Cells(i, 4) = 0 And Cells(i, 3) - 15 > Now() Then
            Somme = Somme + 1
            End If
        Next i
    End With
    Sheets("Fiche de vie").Unprotect Password:="06693"
    Cells(2, 14) = Somme
    Sheets("Fiche de vie").Protect Password:="06693"
End Sub
L'erreur provient sur la ligne surligné en rouge, et me marque le message suivant :
Erreur d'exécution '1004':
La méthode 'Cells' de l'objet '_Global' a échoué
Ce que je ne comprends pas, c'est que cette erreur ne survient pas toujours, parfois la macro se lance sans encombre et calcul le stock restant

Merci d'avance.