Bonjour tout le monde,

Je souhaiterais augmenter de 1 la valeur d'une cellule à chaque fois que je trouve la valeur 1 dans les cellules d'une colonne.
J'ai écrit écrit un programme mais celui-ci ne fonctionne pas...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub incrementer()
    Dim i As Integer
    Dim taille As Integer
    taille = Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row
 
    For i = 1 To taille
        If Sheets("Feuil1").Cells(i, 3).Value = 1 Then
            Sheets("Feuil2").Cells(1, 1).Value = Sheets("Feuil2").Cells(1, 1).Value + 1
        End If
    Next
End Sub
Merci!