ajouter une ligne excel

Bonjour
quelqu'un peut-il me donner un coup de main pour résoudre le problème suivant ?
j'aimerais insérer automatiquement une ligne vierge en dessous a chaque fois la condition est vrai.
Je suis arrive a bricoler un truc qui ne fonctionne pas correctement

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Sub inserer()   Dim i As Integer, Fichier As Worksheet, NbLigne As Integer   Set Fichier = ThisWorkbook.Sheets("test") 'le nombre des ligne   Fichier.Range("B1").Select 'Boucle tant que pas vide Do While Not (IsEmpty(ActiveCell)) NbLigne = NbLigne + 1 Selection.Offset(1, 0).Select Loop   MsgBox NbLigne   Fichier.Activate   For i = 2 To NbLigne   If Trim(Range("C" & i)) <> Trim(Range("C" & i + 1)) Then   Rows(i).Insert   End If   Next i     End Sub

---

Bonjour
Déjà (et règle de base) : lorsque l'on effectue une opération qui modifie les numéros de ligne (que ce soit une insertion ou une suppression) , on le fait de bas en haut et non de haut en bas. A ne pas le faire : croche-pieds assurés avec la numérotation des lignes.
Intéresse-toi à l'argument Step d'une boucle For ... TO ... Next

Salut, en plus de la recommandation d'Unparia lire Dernière ligne et la dernière colonne renseignées d'une feuille qui t'aidera dans la construction de ta boucle For i= Derniere_Ligne to 2 step -1

P.-S. : Balise ton code du post 1

Est ce le problème est résolue sara77 ??
car cette dernier solution marche bien pour moi :)

oui ca marche mercii bcq