Salut Kamellias,
Bonsoir Dhany,
je crois que je vais te donner une carte de fidélité, Kamellias...
La même chose, autrement...
Démarrage de la macro via un double-clic sur la première ligne de la colonne visée.
En fonction des besoins, il y a encore et toujours moyen de jouer sur le nombre de caractères à ôter, dans des données de telle ou telle longueur dans telle ou telle condition.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim tData
'
Cancel = True
'
sCol = Split(Columns(Target.Column).Address(ColumnAbsolute:=False), ":")(1)
iRow = Range(sCol & Rows.Count).End(xlUp).Row
tData = Range(sCol & "2:" & sCol & iRow).Value
'
For x = 1 To UBound(tData, 1)
tData(x, 1) = Left(tData(x, 1), 3)
Next
Range(sCol & ":2" & sCol & iRow) = tData
'
End Sub
A+