Sub recopie()
Dim d As New Dictionary
For n = 2 To Range("A65536").End(xlUp).Row
d(Range("A" & n).Value) = Range("A" & n).Value
Next n
For Each Item In d.Items
ligne = 2
Sheets.Add.Name = Item
Sheets("SOURCE").Rows(1).Copy Destination:=ActiveSheet.Rows(1)
For m = 2 To Sheets("Source").Range("A65536").End(xlUp).Row
If Sheets("SOURCE").Range("A" & m) = Item Then
Sheets("SOURCE").Rows(m).Copy Destination:=ActiveSheet.Rows(ligne)
ligne = ligne + 1
End If
Next m
Next Item