Sub es()
With Sheets("feuil1")
For i = 2 To .Range("B" & Rows.Count).End(xlUp).Row
If Not IsEmpty(.Range("A" & i)) Then
lignedeb = i
i = i + 1
While IsEmpty(.Range("A" & i)) And Not IsEmpty(.Range("B" & i))
i = i + 1
Wend
lignefin = i - 1
Sheets.Add After:=Sheets(Sheets.Count)
.Rows(lignedeb & ":" & lignefin).Copy
ActiveSheet.Paste
End If
Next
End With
End Sub