XL 2016 index des valeurs de plusieurs sheet

Sub rassemble()
    Dim Sh As Worksheet, Derlg&
    Feuil1.Range("c2:c" & Rows.Count).Clear
    For Each Sh In ThisWorkbook.Worksheets
        Derlg = Feuil1.Cells(Feuil1.Rows.Count, "C").End(xlUp).Row + 1
        If Sh.Name <> "INDEX" Then
            With Sh
                .Range("b2:b" & .Cells(.Rows.Count, "B").End(xlUp).Row).Copy Feuil1.Range("c" & Derlg)
            End With
        End If
    Next
    Feuil1.Columns(3).RemoveDuplicates 1, Header:=xlYes
End Sub