Bonjour...

Quelqu'un a-t-il une idée de pourquoi l’exécution sort de ma boucle sur ce code :

cible est initialisée correctement avec Application.Selection (visuel sur l'espion)
cell prend bien les cellules consécutivement (si je substitue la ligne de code par un msgbox, ca marche)
Quand j’exécute ceci, il y a interruption du traitement suite à la première modif d'indentation.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
    Application.EnableEvents = False
    Dim cell As Range
    For Each cell In cible
        If (cell.IndentLevel > 0) Then
            cell.IndentLevel = cell.IndentLevel - 1
        End If
    Next cell
    Application.EnableEvents = True