Sub ramassage()
Dim tablo() As Variant
Dim tabRamass() As Variant
Application.ScreenUpdating = False
Sheets("RAMASSAGE").Range("C4").CurrentRegion.Offset(2, 0).ClearContents
For Each ws In Worksheets
If ws.Name <> "RAMASSAGE" And ws.Name <> "données" Then
tablo = ws.Range("B5").CurrentRegion.Value 'permet de récuperer le contenu du tablo "B5:J24" dans un tablo
tabRamass = Sheets("RAMASSAGE").Range("C4").CurrentRegion.Value 'permet de récupere la liste des points de ramassage
For i = LBound(tabRamass, 2) To UBound(tabRamass, 2)
PointRamassage = tabRamass(2, i)
For j = LBound(tablo, 1) + 1 To UBound(tablo, 1)
If tablo(j, 1) = PointRamassage Then
For k = 2 To 6
If tablo(j, k) <> "" Then
Sheets("RAMASSAGE").Cells(Rows.Count, i + 2).End(xlUp).Offset(1, 0) = tablo(j, k)
End If
Next k
End If
Next j
Next i
End If
Next ws
Application.ScreenUpdating = True
End Sub