Microsoft 365 Bog execution sur macro + rajout condition

[Céline49]

Bonjour à la communauté,

J'ai ce fichier dans lequel j'intègre des données issues d'une base de données qui a évoluée (rajout de colonne inexistante jusqu'alors + dans la base "MesEncaissements" format de la colonne K qui n'est plus en format JJ/MM/AAAA). J'ai donc essayé d'ajuster la macro en conséquence mais j'ai 2 problèmes.

Dans le module 1 sub ecrencais, j'ai un bug d'exécution sur un numéro de facture et je ne comprends pas pourquoi?
--> à ce niveau-ci : Sheets("EcrEncais").Range("B" & lig).Value = sh.Range("C" & i).Value 'N° de facture

Dans le module 2 pour la gestion de l'onglet "MesMouvementsCaisse", j'aurais besoin de rajouter une condition supplémentaire et n'applique la macro qu'uniquement si les données de la colonne E "Rgt" = "Esp" et de ne pas traiter les lignes avec une donnée autre que "Esp".

Est-ce que quelqu'un pourrait m'aider. En lui faisant un grand merci par avance

 

[Phil69970]

Bonjour @Céline49

De ce que j'ai compris je te propose ce fichier

Dans le module 1 je pense que t'on pb vient plutôt d'ici

La macro supprime les 0 inutile

Dans le module 2 j'ai rajouté la condition "ESP"

Merci de ton retour

@Phil69970