Macro Excel

Bonjour,

J'ai posé une question hier soir, et au miracle, ce matin j'avais la réponse !!!
C'est super génial. Je pensais pouvoir continuer ma macro seule, mais je suis vraiment trop nulle !!!
Voilà mon problème :
Lorsque ma colonne E commence par 6 j'insère une ligne en dessous en me copiant ma ligne (merci à dedenet2 et bigfish_le vrai) :
  Dim lig As Long
  Range("E2").Select
  reprise:
     ActiveCell.Offset(1, 0).Select
     If Len(ActiveCell.Value) = 0 Then Exit Sub
     If Left(ActiveCell.Value, 1) = "6" Then
         Rows(ActiveCell.Row).Copy
         Rows("2").Insert Shift:=xlDown
         ActiveCell.Offset(1, 0).Select
     End If
 GoTo reprise

Mais je veux ensuite que sur  ma ligne copiée il y ait dans la colonne G : "Toto".

Merci de votre aide

Salut,

j'ai repondu a une question hier soir et y a pas eu miracle car elle ne s'en sort toujours pas toute seul

essaye ça cela devrait aller (j'ai pas testé)

  Dim lig As Long
  Range("E2").Select
  reprise:
     ActiveCell.Offset(1, 0).Select
     If Len(ActiveCell.Value) = 0 Then Exit Sub
     If Left(ActiveCell.Value, 1) = "6" Then
         Rows(ActiveCell.Row).Copy
         Rows("2").Insert Shift:=xlDown
         Range("G2").Value = "Toto"
         ActiveCell.Offset(1, 0).Select
     End If
 GoTo reprise

Don't be upset I am just kidding . You are welcome with all of your questions

Bonjour,
rajoute avant ton end if
  ActiveCell(1, 4).Select
        ActiveCell.FormulaR1C1 = "toto"

voila et bon courage
  

Merci, mais aucune des solutions ne fonctionne !!!
La copie des lignes ne se fait plus correctement et Toto n'est mis qu'une seule fois

Voila ma macro :

Dim lig As Long
Range("E2").Select
reprise:
 ActiveCell.Offset(1, 0).Select
 If Len(ActiveCell) = 0 Then Exit Sub
 If Left(ActiveCell.Value, 1) = "6" Then
 Rows(ActiveCell.Row).Copy
 ActiveCell.Rows("2:2").EntireRow.Insert Shift:=xlDown
 ActiveCell(2, 7).Select
 ActiveCell.Value = "toto"
 ActiveCell.Offset(1, 0).Select
 
 End If
 
Maintenant la copie se fait lors de la première cellule où il y a 6 et toto est au bon endroit.
La macro continue de défiler mais ne fait rien d'autre !!
Lorsqu'elle s'arrête, le curseur reste sur la première ligne qui  a été copiée.

Bonjour,

Merci les gars, mais pas de guerre svp, je suis vraiment novice.
Je prend la solution dedenet2 car j'obtiens exactement ce que je veux.
Par contre bigfish_le vrai, ton code désorganise mon fichier. Les nouvelles lignes créées se mettent en début de fichier. Je dois le trier après.

Bonne journée.