Salut,
Voici un code qui supprime comme demandé les 4 premiers caractères des données de la colonne A ainsi que les 6 derniers.
Option Explicit
Sub aa()
Dim i As Integer
For i = 1 To 10
Cells(i, 3) = Left(Right(Cells(i, 1), Len(Cells(i, 1)) - 4), Len(Right(Cells(i, 1), Len(Cells(i, 1)) - 4)) - 6)
Next i
End Sub
Selon qu'il y a des espaces ou non, on pourrait en plus les supprimer (uniquement devant et derrière) directement par le code.
On peut également remplacer les données de la colonne A au lieu de placer le résultat dans la colonne C.
A te relire.