Sub Vivons_Cachés_Mais_Pas_Trop()
Dim rng As Range, c As Range
Set rng = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, 23)
For Each c In rng
c.Value = crypt_bansan(CStr(c.Value))
Next
End Sub
Private Function crypt_bansan(S As String)
Dim i%, L$, c_mot$, nv_car%
For i = 1 To Len(S)
L = Mid(S, i, 1)
nv_car = Asc(L) + 1
c_mot = c_mot & Chr(nv_car)
Next i
crypt_bansan = c_mot
End Function