Bonjour à toutes et tous.
J'extrais en J par cette formule les 7 caractères droits de la colonne D.
Set Zone = .Range("D2:D" & .Range("D65536").End(xlUp).Row)
Zone.Offset(0, 6).FormulaR1C1 = "=RIGHT(RC4,7)" 'Droite de colonne D
Zone.Offset(0, 6) = Zone.Offset(0, 6).Value...