Bonjour,

Je désire insérer un retrait de texte dans une cellule sous condition. Mais la Macro plante à la ligne Selection.InsetIndent 1

voici mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 Dim K As Long
   Dim L As Long
    For K = Range("A1000").End(xlUp).Row To 4 Step -1
    For L = 2 To 3
    If Cells(K, 1) = Cells(K - 1, 1) Then Range(Cells(K, 2), Cells(K, 3)).Select
    Selection.InsertIndent 1
   Next L: Next K
merci de m'aider