excel probleme de guillemets """"""

Sub EnregistrerTexteSansGuillemets()
Dim t, ub%, i&, j%
With ActiveSheet.UsedRange
  t = .Resize(.Rows.Count + 1) 'au moins 2 éléments
  ub = UBound(t, 2)
  For i = 1 To UBound(t) - 1
    For j = 1 To ub
      If InStr(t(i, j), """") Then t(i, j) = Application.Trim(Replace(t(i, j), """", " ")) 'SUPPRESPACE
  Next j, i
  .Value = t
End With
Application.DisplayAlerts = False
With ThisWorkbook
  .SaveAs Left(.FullName, InStrRev(.FullName, ".") - 1), xlText
  If Workbooks.Count = 1 Then Application.Quit Else .Close
End With
End Sub