Bonjour,
Dans le code Private Sub b_valid_Click() après cette ligne f.Range(f.Cells(noEnreg, 4), f.Cells(noEnreg, Ncol)) = tmp
Au vu du code, le mieux est que vous formatiez chaque cellule de la ligne noEnreg avec ce que je vous ai suggéré. Donc celulle AM, AO, ect...
Plutot que d'utiliser cells(ligne, ...) comme je vous ai proposé, je pense que vous suivrez mieux le code si vous faites comme ceci (exemple pour AM et AO)
Union(Range("AM" & noenreg), Range("AO" & noenreg)) = CDate(Union(Range("AM" & noenreg), Range("AO" & noenreg)))
Cordialement