Macro pour diviser une feuille en fonction de la date

Bonjour à tous,

Je dois diviser une feuille en multiple feuille en fonction de la date.

J'ai déjà une macro qui fait cela, mais j'aimerais une vérification supplémentaire qui ne dédouble pas les lignes si elles sont déjà présentes, je ne vois pas comment effectuer cette vérification à travers la macro.

J'ai une feuille avec toutes les lignes, puis une feuille par mois (janvier, février etc.)

Voici le code :

Sub copier()Dim i As Integer, lg As Integer
Dim feuille As String
For i = 1 To Sheets("Global_mensuel").Range("C65536").End(xlUp).Row
If Not IsEmpty(Range("C" & i)) Then
feuille = Format(Range("C" & i), "mmmm")
lg = Sheets(feuille).Range("C65536").End(xlUp).Row + 1
Sheets("Global_mensuel").Range("A" & i & ":B" & i & ":C" & i & ":D" & i & ":E" & i & ":F" & i & ":G" & i & ":H" & i & ":I" & i & ":J" & i & ":K" & i).Copy Sheets(feuille).Range("A" & lg)
End If
Next
End Sub

Voici un exemple de ligne :

Data Accuracy Check Country Date Vendor Objective Reseller Name End user name Product family Team member Time

test test 05/01/2017 test test test test test test test

test test 01/02/2017 test test test test test test test

Merci de votre aide.