macro pour rechercher et coller les données...

Option Explicit
Option Compare Text
Sub TheCollector()
Dim PlageSource As Range, CellSource As Range
Dim PlageCible As Range, CellCible As Range
 
With Sheets("Archlignes")
    Set PlageSource = .Range(.Range("B2"), .Range("B500").End(xlUp))
End With

With Sheets("PainMidiSoir")
    Set PlageCible = .Range(.Range("C5"), .Range("C500").End(xlUp))
End With
 
For Each CellSource In PlageSource
    If CellSource.Offset(0, -1) = Sheets("PainMidiSoir").Range("Y1") Then
        For Each CellCible In PlageCible
           If CStr(CellSource) = CStr(CellCible) Then
            CellCible.Offset(0, 1) = CellSource.Offset(0, 1)
            CellCible.Offset(0, 2) = CellSource.Offset(0, 2)
           End If
        Exit For
        Next
    End If
Next

End Sub