utiliser une macro dans une macro

Je voudrais me servir de ma fonction NouvelleLigneAuDessus (qui fonctionne tres bien) pour insérer une ligne à un endroit précis via une macro.

Code:

---

1 2 3 4 5 6 7 8 9 10

For I = 1 To NbLigne If (trouve <> 1) Then Cellule = Range("A" & I) If (Len(Cellule) = 5) Then trouve = 1 Cellule.Select Call NouvelleLigneAuDessus End If End If Next

---

Impossible de selectionner ma cellule et d'inserer une ligne au dessus via ma fonction.

Bonjour,

Remplacez

Code:

---

Cellule = Range("A" & I)

---

par

Code:

---

set Cellule = Range("A" & I)

---