Boucle for each + selection

Bonjour,

afin de pour voir utiliser des cellules dans des formules il me faut ajouter une apostrophe dans toutes les cellules (question de format). j'aimerai que la macro permette de mettre une apostrophe au début du contenu de chaque cellule (exemple : remplacer 20 par '20). J'avais un début dans le fichier.

Merci d'avance !

Bonjour,

une manière de faire :

Sub apostrophe_selection()

    Dim cel As Range

    For Each cel In Selection
        With cel
            .Value = "'" & .Value
        End With
    Next cel
End Sub

Merci h2so4 !!!