Incompatibilité de type

Bonjour,
J'ai récemment eu à écrire un script ayant pour but de rajouter des traductions.
J'ai un fichier de base, avec un liste de 1000 noms d'options en français (sur lequel le script est lancé), et un autre fichier comprenant une listes de tous les noms en français existant (dans l'entreprises), et leurs traductions en plusieurs langues.
Le but est, pour chaque ligne de mon fichier de base, de vérifier si le même nom ne peut pas être trouvé dans la colonne français du second fichier. Si jamais cela arrivait, copier dans les colonnes adjacentes leurs traductions (colonnes adjacentes, sur la même ligne, du second fichier "traduction").
Le fichiers traductions fait environs 10400 lignes et 4 colonnes (1 par langue).

Cependant, à la ligne 10, détaillée-ci après, après avoir réussi un "match" (donc plusieurs boucles), le programme me dit cela : Incompatibilité de type
Il n'y a sur les 2 fichiers, normalement, que du texte, (string).
Une idée ?

Voici mon script :

Sub ref2()
    Dim i As Integer
    Dim j As Integer
    Dim wbfil As Workbook
    Dim wbre As Worksheet
    Set wbfil = Workbooks.Open("chemin_du_excel_avec_tarductions")
    Set wsre = wbfil.Worksheets("PME")
    For j = 1 To 1000
        For i = 1 To 10400
                If ThisWorkbook.Worksheets("RefOpt").Range("C" & j) = wsre.Range("H" & i) Then
                    ThisWorkbook.Worksheets("RefOpt").Range("D" & j) = wsre.Range("F" & i)
                    ThisWorkbook.Worksheets("RefOpt").Range("E" & j) = wsre.Range("E" & i)
                    ThisWorkbook.Worksheets("RefOpt").Range("F" & j) = wsre.Range("G" & i)
                End If
        Next
    Next
    Set wsre = Nothing
    Set wbfil = Nothing
            
End Sub

et voici la ligne 10 :

If ThisWorkbook.Worksheets("RefOpt").Range("C" & j) = wsre.Range("H" & i) Then

Merci d'avance !

PS : Est-il possible de mettre une condition sur le type ? avec string par exemple ?