VBA rechercheV resultats multiples et variable

Bonjour,

J'ai un fichier de planning avec différents onglets :
- planning général
- planning par collaborateur
- planning pas magasin
Les 2 derniers onglet étant censés se mettre à jour automatiquement depuis le planning général, puis d'autres onglet sans importance ici.

Je ne parviens pas à mettre à jour mon onglet planning par magasin, j'ai créé un code (ci-dessous), qui fonctionne a moitié, car il m'affiche effectivement un collaborateur planifié sur le magasin seulement lorsqu'il y en a plusieurs, il ne mes les affiche pas... Une idée de l'endroit ou mon code ne joue pas?

Ci-joint mon fichier si ça peut aider a comprendre l'objet de ma demande
Par avance merci!

Option Explicit
Option Compare Text

Sub maj()

Dim plage As Range
Dim c As Range
Dim p As Object
Dim b As Object
Dim i As Long
Dim r As Long
Dim col As Long
Dim valrech As String
Dim l_max As Long

Set p = Sheets("Planning par magasin")
Set b = Sheets("Planning")
l_max = b.Range("A1:A65536").Find("Totaux", lookat:=xlWhole).Row - 1

Set plage = p.Range("C3,C8,C13,C18,C23,C28,C33,C38,C43,C48,C53,C58,D3,D8,D13,D18,D23,D28,D33,D38")

For Each c In plage
r = c.Row
col = c.Column
valrech = p.Cells(r, 2).Value

For i = 4 To l_max Step 1
If b.Cells(i, col) Like valrech Then
b.Cells(i, 2).Copy c

End If

Next i
Next c
End Sub

https://www.cjoint.com/c/GGdodiaV4tS

Jc