Sub MarcoPolo()
Dim MaCol As String, LignDeb As Long, LigneFin As Long, i, Acouper As Byte
Acouper = 8 ' nombre de caractères à supprimer y compris espace et [ et ]. A adapter
MaCol = "B" 'colonne ou se trouvent les données. A adapter
LignDeb = 25 'N° de ligne ou commencent les données. A adapter
LigneFin = Range(MaCol & Rows.Count).End(xlUp).Row
For i = LignDeb To LigneFin
Cells(i, MaCol) = Left(Cells(i, MaCol), Len(Cells(i, MaCol)) - Acouper)
Next
End Sub