Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter)
DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A (à adapter) de l'onglet O
For I = 1 To DL 'boucle sur toutes les lignes I de 1 a DL
O.Cells(I, "A").Value = "'" & O.Cells(I, "A").Value 'ajoute une apostrophe devant la valeur de la cellule
Next I 'prochaine ligne de la boucle
End Sub