Insertion de certaines lignes de texte vers excel

Option Explicit
Dim valeur, mot As String
Dim count As Integer
Private Sub CommandButton1_Click()
Importer_texte
End Sub
Private Sub CommandButton2_Click()
For_X_to_Next_Ligne
End Sub
Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, Cell As Range, NoCol As Integer
Dim NoLig As Long
Dim DernLigne As Long
DernLigne = Range("A65536").End(xlUp).Row
    'Instance de la feuille qui permet d'utiliser FL1 partout dans
    'le code à la place du nom de la feuille
    Set FL1 = Worksheets("Feuil1")
 'Fixe le N° de la colonne à lire
    NoCol = 1
 'Utilisation du N° de ligne dans une boucle For ... Next
    For NoLig = 1 To DernLigne
        valeur = FL1.Cells(NoLig, NoCol)
Count_Words 'nombre de mots
If count > 1 Then
Break_String
Select Case mot
Case Is = "poids"
Case Is = "numéro"
Case Is = "quantité"
Case Else
'on supprime
 Rows(NoLig & ":" & NoLig).Select
    Selection.Delete Shift:=xlUp
End Select
Else
'on supprime
 Rows(NoLig & ":" & NoLig).Select
    Selection.Delete Shift:=xlUp
End If
 Next
    Set FL1 = Nothing
End Sub
Sub Count_Words()
Dim WrdArray() As String
Dim text_string As String
text_string = valeur
WrdArray() = Split(text_string, "_")
count = UBound(WrdArray()) + 1
End Sub
Sub Break_String()
Dim WrdArray() As String
Dim text_string As String
text_string = valeur
WrdArray() = Split(text_string, "_")
mot = WrdArray(1)
End Sub

'site à consulter pour split
'http://www.exceltrick.com/formulas_macros/vba-split-function/

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim valeur, mot As String
Dim count As Integer
Private Sub CommandButton1_Click()
Importer_texte
End Sub
Private Sub CommandButton2_Click()
For_X_to_Next_Ligne
End Sub
Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, Cell As Range, NoCol As Integer
Dim NoLig As Long
Dim DernLigne As Long
DernLigne = Range("A65536").End(xlUp).Row
    'Instance de la feuille qui permet d'utiliser FL1 partout dans
    'le code à la place du nom de la feuille
    Set FL1 = Worksheets("Feuil1")
 'Fixe le N° de la colonne à lire
    NoCol = 1
 'Utilisation du N° de ligne dans une boucle For ... Next
    For NoLig = 1 To DernLigne
        valeur = FL1.Cells(NoLig, NoCol)
Count_Words 'nombre de mots
If count > 1 Then
Break_String
mot = Left(mot, 5) '5 premier caractères
Select Case mot
Case Is = "numér"
Range("A" & NoLig).Select
      Selection.Copy
    ActiveCell.Offset(0, 1).Select  'sélection cellule  colonne B(0 meme ligne , 1  colonne suivante)
    ActiveSheet.Paste
Case Is = "quant"
Range("A" & NoLig).Select
      Selection.Copy
    ActiveCell.Offset(0, 1).Select  'sélection cellule  colonne B(0 meme ligne , 1  colonne suivante)
    ActiveSheet.Paste
    Case Is = "poids"
 Range("A" & NoLig).Select
      Selection.Copy
    ActiveCell.Offset(0, 1).Select  'sélection cellule  colonne B(0 meme ligne , 1  colonne suivante)
    ActiveSheet.Paste
End Select
End If
 Next
    Set FL1 = Nothing
End Sub
Sub Count_Words()
Dim WrdArray() As String
Dim text_string As String
text_string = valeur
WrdArray() = Split(text_string, "_")
count = UBound(WrdArray()) + 1
End Sub
Sub Break_String()
Dim WrdArray() As String
Dim text_string As String
text_string = valeur
WrdArray() = Split(text_string, "_")
mot = WrdArray(1)
End Sub

'http://www.exceltrick.com/formulas_macros/vba-split-function/

Sub Supprime_lignes_vides()
 Dim I As Long
   For I = ActiveSheet.UsedRange.Rows.count To 1 Step -1
       If Application.CountA(Rows(I)) = 1 Then Rows(I).Delete 'colonne B
   Next I
   Columns("A:A").Delete Shift:=xlToLeft 'colonne A
    Worksheets("Feuil1").Range("A:A").Columns.AutoFit
    End Sub
Private Sub CommandButton3_Click()
Supprime_lignes_vides
End Sub