Sub stan()
last_ligne = Range("A65536").End(xlUp).Row
montab = Range("A2", "B" & last_ligne)
Maximum = Application.WorksheetFunction.Max(Range("B2:B" & last_ligne))
ReDim tab_fin(Maximum) As Boolean
For x = LBound(montab, 1) To UBound(montab, 1)
For i = montab(x, 1) To montab(x, 2)
tab_fin(i) = True
Next i
Next x
'On va regarder les intervalles du tab_fin
ligne_deb = 2
For i = LBound(tab_fin) To UBound(tab_fin)
If tab_fin(i) = False Then
Cells(ligne_deb, 4) = i
For y = i To UBound(tab_fin)
If tab_fin(y) = True Then Exit For
Next y
i = y
Cells(ligne_deb, 5) = y - 1
ligne_deb = ligne_deb + 1
End If
Next i
End Sub