Salut Grégoire,
Un clic sur les cellules à "décrypter"... sans test pour savoir si il y a bien autant de guillemets que nécessaire!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
If Target.Count = 1 Then
If InStr(Target, ",") > 0 And InStr(Target, """") > 0 Then
Target.Offset(0, 1) = Split(Split(Target, ",")(1), """")(1)
Target.Offset(0, 2) = Split(Split(Target, ",")(3), """")(1)
End If
End If
'
End Sub
A+