Salut NanaZAH,
Salut la belle équipe,
la seule chose qui m'embête est que vos solutions gardent le guillemet de droite...
Si lui reste, le gauche aussi, alors ?!
J'ai supprimé les deux...
Un double-clic démarre la macro.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim tTab
'
Cancel = True
tTab = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
For x = 1 To UBound(tTab, 1)
tTab(x, 1) = "SIN " & Split(Split(tTab(x, 1), "SIN ")(1), " ")(0)
Next
Range("F1").Resize(UBound(tTab, 1), 1).Value = tTab
'
End Sub
A+