Comment remplacer des lettres par nom avec une macro ?

Sub Test()
Dim Cel As Range, C As Range
Dim i As Integer
Dim Tablo
Dim Texte As String
    For Each Cel In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
        If Cel <> "" Then
            Tablo = Split(Cel, ";")
            For i = 0 To UBound(Tablo)
                Set C = Columns(3).Find(Tablo(i), , xlValues, xlWhole)
                If Not C Is Nothing Then
                    Texte = Texte & C.Offset(0, 1) & ";"
                End If
            Next i
            Cel.Offset(0, 1) = Left(Texte, Len(Texte) - 1)
            Texte = ""
        End If
    Next Cel
End Sub