Ligne manquante après exécution macro

Bonjour,

Quand j'exécute la macro, il me manque une ligne dans le résultat feuille "Order"par rapport à la feuille source "Data"

Est ce que quelqu'un pourrait m'aider.

Ci joint le fichier exécuter après la macro.

Merci

Bonsoir,

Enlève le -1 dans la ligne suivante :

Da = ActiveSheet.UsedRange.Rows.Count - 1

comme ceci :

Da = ActiveSheet.UsedRange.Rows.Count

Bonjour Raja,

Un grand merci ça fonctionne nickel.

David