Comparaison d'une valeur dans une colonne

Bonjour,

Mon problème est le suivant :
J'ai dans une première feuille des données avec le code des départements et dans une seconde feuille la correspondance entre le nom et le code des départements.
Je souhaiterai que dans ma première feuille le code du département soit remplacé par son nom.
Voici pour le moment ma procédure :

Public Sub cresta(ByVal sheet As String, ByVal col As String)

    Dim i As Integer
    
    With ThisWorkbook.Sheets(sheet)
        For i = .Range(col & .Rows.Count).End(xlUp).Row To 2 Step -1
            If Not Worksheets("dep").Range("A1:A96").Find(.Range(col & i).Value, LookIn:=xlValues) Is Nothing Then
                .Range(col & i).Value = "??"
            End If
        Next i
    End With

End Sub

Le problème c'est que je ne sais pas quoi mettre à la place des points d'interrogation pour que la cellule prenne la valeur du nom du département correspondant (qui se situe dans la colonne B de la feuille dep).

Merci d'avance ! :)