pour la macro, essaie un truc dans ce genre-là :

Sub nico()
For i = 1 To 9357
ActiveSheet.Range("A" & i) = "'" & ActiveSheet.Range("A" & i)
Next
End Sub

(remplace "A" par la colonne que tu veux modifier)