Bon jour
En collant ce code dans un module de ton fichier ca devrait marcher
Public flag, titre
Sub deb()
flag = 0
With Sheets(1)
Set titre = .Rows(1)
For Each i In .UsedRange.Columns(1).Rows
If i = "" Then Set finpage = i.Offset(-1)
If Left(i, 5) = "Délai" And flag = 0 Then
Set debpage = i: flag = 1
Else
If Left(i.Offset(1, 0), 5) = "Délai" And flag = 1 Then
Set finpage = i.Offset(-1)
Call colle(debpage, finpage)
flag = 0
End If
End If
Next
Call colle(debpage, finpage)
End With
End Sub
Sub colle(deb, fin)
Set zone = deb.Parent.Range(deb.Address & ":" & fin.Offset(1, 0).Address)
'MsgBox zone.Address
Set nf = Sheets.Add
zone.Copy nf.Range("a5")
titre.Copy nf.Rows(4)
nom = Right(deb, Len(deb) - InStr(1, deb, ":"))
nom = Replace(nom, "/", "_")
nf.Name = nom
End Sub