retrait de texte dans une cellule

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:

---

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:lol:

J'ai trouvé.

Il fallait simplement utiliser la commande IndentLevel au lieu de InsertIndent

Code:

---

Selection.IndentLevel = 1

---

:ccool::ccool::ccool: