Convertir une liste de plage de N° en une seule liste...

Sub macro1()
Application.ScreenUpdating = False
With Sheets("Format final")
    .Range("A2:C" & .Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
End With
With Sheets("Données initiales")
    derlig = .Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To derlig
        vdebut = .Cells(i, 1)
        vfin = .Cells(i, 2)
        vtype = .Cells(i, 3)
        vcat = .Cells(i, 4)
        For j = vdebut To vfin
            derlig2 = Sheets("Format final").Cells(Rows.Count, 1).End(xlUp).Row + 1
            With Sheets("Format final")
                .Range("A" & derlig2) = j
                .Range("B" & derlig2) = vtype
                .Range("C" & derlig2) = vcat
            End With
        Next j
    Next i
End With
Application.ScreenUpdating = True
End Sub