bjr à tous
j'ai un problème et je cherche votre aide
le 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
15
16
Private Sub Worksheet_Change(ByVal Target As Range)
Dim fl As Worksheet
Dim i As Integer
Dim valeur
Dim année
valeur = Left(Worksheets(1).Range("ae7").Value, InStr(Worksheets(1).Range("ae7").Value, "/") - 1)
année = Mid(Worksheets(1).Range("ae7").Value, InStr(Worksheets(1).Range("ae7").Value, "/") + 1)
If Target = Worksheets(1).Range("ae7") Then
For Each fl In ActiveWorkbook.Worksheets
i = i + 1 'incrementation de i pour le parcour de chaque feuille
    If i > 1 And fl.Name <> "Récap" And fl.Name <> "suiviWP" Then
           fl.Range("ae7") = Format(valeur + i - 1, "0000") & "/" & Format(année, "00") 'on ajoute i-1 a la valeur de la cellule ("ae7") de la feuil1
    End If
Next fl
End If
End Sub
et quand j'ajoute la ligne:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Worksheets(1).Range("ae7").Value = Format(valeur, "0000") & "/" & Format(année, "00")
le macro s'execute sans arrêt.
veuillez m'aider svp.
merci