Sub Decoup()
Dim i As Long, ID As Long, j As Long, Nom As String
ID = -1
j = 2
Nom = ActiveSheet.Name
With Sheets(Nom)
For i = 2 To .Range("A65536").End(xlUp).Row + 1
If .Cells(i, 1).Value <> ID Then
ID = .Cells(i, 1).Value
If i > 2 Then
Sheets.Add
ActiveSheet.Name = .Cells(i - 1, 1).Value
.Range("A" & j & ":E" & i - 1).Copy ActiveSheet.Range("A1")
j = i
End If
End If
Next i
End With
End Sub