Sub Periodes()
Dim a As Range, mes$
On Error Resume Next 'si aucune SpecialCell
For Each a In [L:L].SpecialCells(xlCellTypeFormulas, 1).Areas
mes = mes & vbLf & "De " & Range("I" & a(1).Row).Text & " à " & Range("I" & a(a.Count).Row).Text
Next
MsgBox Range("I1").Text & IIf(mes = "", " Aucun arrêt", vbLf & mes), , "Périodes d'arrêt"
End Sub