VBA autofilter et copie impossible

Bonjour à tous,


J'ai un premier fichier "Chargement" qui va chercher les sources de données.
Il extrait les données en fonction de la date sélectionné dans un calendar faisant référence aux titres des fichiers sources

Afin d'éviter les doublons, j'ai plusieurs boutons qui contrôle si les données
ne sont pas déjà présentes dans le fichier Chargement en fonction de cette date.
Le code correspondant est utilisé dans deux macros différentes. (1er et 2eme bouton charger du formulaire)

Premier soucis : Il fonctionne dans la première macro mais pas dans la seconde.

Deuxième soucis : Dans cette même seconde macro, j'ai un autre problème (est ce que c'est lié je ne pense pas) concernant la copie d'une zone de donnée trié selon deux critères avec autofilter.
Les deux critères sont appliqués sur des champs différents. Parfois, l'un d'eux fonctionne, parfois aucun.

Voici mon fichier "Chargement"
https://www.cjoint.com/?3Eej5BaN3gw

Voici deux exemples de fichier source
https://www.cjoint.com/?3Eej6nuevXT
https://www.cjoint.com/?BEej6C7IGXC

Pour ce qui ne pourrait pas ouvrir les fichiers, voici mes codes :

Sub Charger_Click()
Dim Ligne As Long
Dim valeur As Date
Dim resultat As Boolean
Dim Lig As String

With Sheets("Donnees")
'Positionnement sur la première ligne vide de la feuille "donnees"
Ligne = .Range("A" & Rows.Count).End(xlUp).Row + 1

Application.ScreenUpdating = False
Worksheets("Chargement").Select
valeur = Range("A3").Value
Worksheets("Donnees").Select
Columns("A:A").Select
On Error GoTo gestionnaireerreur
resultat = Selection.Find(valeur).Select
Worksheets("Chargement").Select
If resultat = True Then
MsgBox ("Les données sont déjà chargées")
GoTo copie
End If

gestionnaireerreur:
Worksheets("Chargement").Select
If resultat = False Then
MsgBox ("Les données sont en cours de chargement")
End If

With Sheets("Chargement")
If Dir("C:\" & Format([A3].Value, "dd mm yyyy") & ".xls") = "" Then
MsgBox "le fichier est introuvable!"
For Each Ctrl In Acceuil.Controls
If TypeOf Ctrl Is MSForms.ComboBox Then Equipe = ""
Next Ctrl
For Each Ctrl In Acceuil.Controls
If TypeOf Ctrl Is MSForms.ComboBox Then Agent = ""
Next Ctrl
For Each Ctrl In Acceuil.Controls
If TypeOf Ctrl Is MSForms.OptionButton Then Ctrl.Object.Value = False
Next Ctrl
Exit Sub
End If

Sheets("Chargement").Select
With Workbooks.Open("C:\" & Format([A3].Value, "dd mm yyyy") & ".xls")
' Copier les données de la feuille "Temps Conseillers" dans la première ligne vide de la feuille "Données"
.Sheets("Temps Conseillers").Range("A2:K39").Copy Destination:=Workbooks("Test.xlsm").Worksheets("Donnees").Range("C" & Ligne)
.Close savechanges:=False

With Sheets("Donnees")
With .Range("B" & Ligne & ":B" & .Range("C" & Rows.Count).End(xlUp).Row)
.Formula = "=IF(RC[6]="""","""",IF(RC[6]=100%,""Oui"",""Non""))"
.Value = .Value ' Aucune formule
End With
.Range("A" & Ligne & ":A" & .Range("C" & Rows.Count).End(xlUp).Row) = Format(Sheets("Chargement").Range("A3"), "mm/dd/yyyy")

copie:
Lig = .Range("M65536").End(xlUp).Row
Sheets("Resultats").Rows("2:" & Lig).Delete

Worksheets("Donnees").Select
.Range("A1:M" & Lig).AutoFilter Field:=1, Criteria1:=.[N1]
.Range("A1:M" & Lig).AutoFilter Field:=2, Criteria1:=.[O1]
On Error Resume Next 'si pas de résultat
.Range("A2:M" & Lig).SpecialCells(xlCellTypeVisible).Copy Sheets("Resultats").[A2]
.Range("A1:M" & Lig).AutoFilter
Sheets("Donnees").Select
ActiveSheet.AutoFilterMode = False
'Sheets("Resultats").Select
'ActiveSheet.AutoFilterMode = False

Application.ScreenUpdating = True

ActiveWorkbook.Save
MsgBox "Vos données ont été chargé et sauvegardé"

Unload Me

End With
End With
End With
End With
End Sub

Un grand merci à tous!

Signé : Un utilisateur VBA Excel 2007 Pro de 3 semaines :)