VBA recherche chaine de caractère dans une autre colonne

Bonjour

Je souhaite extraire une chaine de caractère comme dans mon exemple en P.J (feuil 1 les 3 derniers chiffres) et le rechercher en Feuil 2.

2-SI trouver compter le nombre de fois il apparait

3-ensuite dupliquer la ligne de la feuille 1 en fonction du nombre trouvé

voir exemple en P.J

Merci pour votre aide

Bonjour pmarc32 et

Une petite présentation ICI serait la bienvenue

Si vous ne l'avez pas encore fait, je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER] ainsi que ses fonctionnalités
qui vous aideront dans vos demandes et réponses sur ce forum.

Concernant votre demande et si j'ai bien compris, essayez ce code

Sub Test()
  Dim ShtSearch As Worksheet
  Dim dLig As Long, Lig As Long
  Dim MaVal As Integer, NbFois As Long

  With ThisWorkbook
    Set ShtSearch = .Sheets("Feuil2")
    With Sheets("Feuil1")
      dLig = .Range("B" & Rows.Count).End(xlUp).Row
      ' On commence par la fin
      For Lig = dLig To 3 Step -1
        MaVal = Right(.Range("B" & Lig), 3)
        NbFois = 0: NbFois = Application.WorksheetFunction.CountIf(ShtSearch.Range("B:B"), MaVal)
        If NbFois > 0 Then
          .Rows(1).Copy
          .Rows(Lig + 1 & ":" & Lig + 1 + NbFois - 1).Insert Shift:=xlDown
        End If
      Next Lig
    End With
  End With
  Set ShtSearch = Nothing
End Sub

Merci de votre participation

Cordialement

Bonjour

Bonjour à tous

Une variante.

Bye !