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