Voici une macro qui pourrait te permettre de réaliser ce que tu souhaites:
VB:
Sub mlkj()
Columns(1).Delete
i = 1
Do
For j = 1 To 7
If Not Left(Cells(i, j), 1) = Chr(34) Then Cells(i, j) = Chr(34) & Cells(i, j) & Chr(34)
Next j
i = i + 1
Loop Until IsEmpty(Cells(i, 1))
End Sub