Ecrire un texte à partir d'un autre

Bonjour,

A partir d'un texte écrit dans une cellule, est-il possible de réécrire un autre texte en ne sélectionnant que (par exemple) une lettre sur 3 du premier texte ?

exemple : texte original en A1 : mercidevotreaideprécieuse

nouveau texte en A2 : mcetaeeee

Ceci pour un décryptage de message codé . Merci d'avance

Bonjour wanadoo,

Un exemple en vba avec le code suivant :

Sub UnSurTrois()
Dim dimension As Long, i As Long
Dim tablo
Dim LeMot As String, LeNouveauMot As String

    LeMot = [A1]
    dimension = Len(LeMot)
    ReDim tablo(1 To dimension)
    For i = 1 To dimension
        tablo(i) = Mid(LeMot, i, 1)
    Next i
    For i = 1 To dimension Step 3
        LeNouveauMot = LeNouveauMot & tablo(i)
    Next i
    [A2] = LeNouveauMot

End Sub