VBA copie partielle d'une cellule

Bonjour le forum

Que je souhaiterais ajouter au code existant, fichier joint avec explication.

Merci d'avance

Nonno

Bonjour,

Ajoutez cette ligne:

   TC.DataBodyRange(LR, 14).Value = Right(OS.Range("F25").Value, 3)

Cdlt

Bonjour Arturo et merci! Vite fait bien fait

Bonne journée

Nonno