insertion dans une liste disposée en colonne par macro? fonction?

Pour un texte se trouvant en D1 :

Sub test4()
Dim Num As Integer
Set Plage = Range("A1", Range("A65536").End(xlUp))
Range("A1").Select
Do While ActiveCell <> ""
Num = InStr(1, ActiveCell.Value, "@ INDI")
If Num <> 0 Then
ActiveCell.EntireRow.Insert
ActiveCell.Value = Range("D1").Value
ActiveCell.Offset(1, 0).Select
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Daniel
"pat" <patrickxmara@aol.com> a écrit dans le message de news:
1134065364.451846.74930@g49g2000cwa.googlegroups.com...
Impeccable, je vais toutefois abuser de vos compétences avec une
dernière question : comment modifier la macro afin que "fin de série
texte identique" soit paramétrable dans une cellule de la feuille ou
se trouve le fichier à traiter ?

Merci de m'avoir aidé dans mes travaux généalogiques, vous pouvez
les consulter sur http://www.mara-evrard.com

Cordialement
Patrick

Ca ne sera pas la peine. Essaie :

Sub test4()
Dim Num As Integer
Range("A1").Select
Do While ActiveCell <> ""
Num = InStr(1, ActiveCell.Value, "@ INDI")
If Num <> 0 Then
ActiveCell.EntireRow.Insert
ActiveCell.Value = "fin de série texte identique"
ActiveCell.Offset(1, 0).Select
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub


Cordialement.
Daniel
"pat" <patrickxmara@aol.com> a écrit dans le message de news:
1134058661.736903.182800@g47g2000cwa.googlegroups.com...
Il y a effectivement d'autres lignes qui commencent par 0, mais je
rappelle que je peux introduire sur la ligne concernée 0 @x...@ INDI
un texte sans equivoque facilitant son identification exemple : ICI 0
@x...@ INDI