Bonjour,
Moi aussi je suis matinal,
Ton code fonctionne à merveille.
Je suis permis d'ajouter ws. sur nblg ce qui donne
NbLg = Ws.Range("A" & Rows.Count).End(xlUp).Row
Car parfois le travail ce faisait sur 10 ou 11 lignes selon la page où je lance la macro et non pas en comptant depuis la page BDD. Je suis content de m'en être sorti de ce bug, seul enfin presque.
Merci pour tout çà.
Cordialement,
Leakim