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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.