Sub AjoutDonnees(chemin As String)
Dim classeur As Workbook 'Création d'un classeur
Set classeur = Workbooks.Open(chemin)
Dim k As Double
Dim i As Double
k = 0
ThisWorkbook.Activate
ThisWorkbook.Sheets("Donnees").Select
i = Range("Donnees!A01").CurrentRegion.end(xlDown).Row
classeur.Activate
'Traitement du fichier, récupération des types de mouvements : expédition et navette
'On filtre pour ne garder que les types de mouvements qui nous intéresse
While Range("Feuil1!A2").Offset(k) <> ""
If Range("Feuil1!H2").Offset(k) = "Expéd. client (-)" Or Range("Feuil1!H2").Offset(k) = "Navette filiale (-)" Or Range("Feuil1!H2").Offset(k) = "Navette inter-PFL (-)" Or Range("Feuil1!H2").Offset(k) = "Expéd. filiale (-)" Then
Range("Feuil1!A2:H2").Offset(k).Copy Destination:=ThisWorkbook.Sheets("Donnees").Range("A1").Offset(i)
i = i + 1
End If
k = k + 1
Wend
classeur.Close
End Sub