Copier coller avec condition sur fichier Tabular text

Bonsoir à tous,

Nouveaux en VBA, je galère depuis plusieurs jours à réaliser un algorithme, celui-ci à pour but de ranger des donnés qui ce trouve dans une seul colonne.

Ces donnés ce présente sous cette forme :

Coordonné

Dans l'idéal je souhaiterais le présenter comme ceci :

Sub macro2()
Dim I As Integer
Dim B As Integer

I = 1
B = 1

For I = 1 To 100

If Range("A" & I).Value Like "*69*" Then

    Feuil1.Range("A" & I).Copy Feuil2.Range("A" & B)

I = I + 1

End If

If Range("A" & I).Value Like "*3*" Then

    Feuil1.Range("A" & I).Copy Feuil2.Range("A" & B)

End If

Next

End Sub

Voici le code que j'ai réaliser mais je m'arrache les cheveux à essayer de mettre les valeur 0 3 Bloublou en dans sa colonne annexe

Enfin même en regle général je commence à être perdu...

C'est pour cela que j'implore votre aide

Bonjour et bienvenue sur le forum

Un essai à tester. Te convient-il ?

Bye :

Bonsoir Tino94, gmb,

s'il n'y a pas des milliers de lignes, un essai :

Sub macro2()
Dim Lig2 As Integer, Col As Integer, i As Integer
Lig2 = Feuil2.Range("A" & Rows.Count).End(xlUp).Row - 1
Col = 1
For i = 1 To Feuil1.Range("A" & Rows.Count).End(xlUp).Row
    If Feuil1.Range("A" & i).Value = "Nom" Then
        Col = 1
        Lig2 = Lig2 + 1
    Else
        Col = Col + 1
    End If
    Feuil1.Range("A" & i).Copy Feuil2.Cells(Lig2, Col)
Next

End Sub

A+