Bonjour,

Suggestion :

Option Explicit

Sub ChercheReptides()

    Dim PlageP As Range, PlageR As Range
    Dim Cellule As Range, Boite As Range
    Dim Position As Long, Adresse As Long
    
    Set PlageP = Range("A2:A" & Range("A2:A65536").End(xlDown).Row)
    Set PlageR = Range("B2:B" & Range("B2:B65536").End(xlDown).Row)
    
    Adresse = 3
    For Each Cellule In PlageP
        For Each Boite In PlageR
            Position = InStr(1, Cellule.Value, Boite.Value, vbTextCompare)
            If (Position > 0) Then
                Cellule.Offset(0, Adresse).Value = Boite.Value
                Cellule.Offset(0, Adresse + 1).Value = Position
                Adresse = (Adresse + 2)
            End If
        Next Boite
    Next Cellule
    
End Sub
'

Re :

La connaissance croit avec le partage comme le dit si bien M. Jean-Claude Bellamy qui m'a beaucoup
appris sans me connaître. Bien que peut répendu, je pense que nous sommes ici pour servir et non
pour être servi. Donner sans attente est pour ma part une marque de sagesse.

Ce fut un plaisir comme toujours.

Arsène Lupin
Gentleman (non cambrioleur)
Pour vour servir :-)

@+