Bonjour fjio,
on pourrait utiliser la colonne Bon de commande qui contient des valeurs uniques
pour les quatre derniers caractères
With ActiveWorkbook
.SaveAs ThisWorkbook.Path & "\" & Right(v(i, 6), 4) & ".xlsx", FileFormat:=xlWorkbookDefault
.Close
End With
ou bien remplacer...