Problème Erreur 2042

Bonjour à tous!

J'ai un problème dans une macro que j'utilise, je me retrouve avec une de mes variables qui prend la valeur "Erreur 2042"... je vous mets ci dessous mon code, en espérant que vous trouverez le problème!

Dim Maligne As Integer
Dim Soprano As Variant
Dim Variato As String
Dim Alto As Single
Dim Exo As Variant
Dim ColResultat As Integer
Dim ColSoprano As Integer
Dim ColVariato As Integer

Public Sub meth3()
ColSoprano = NumColumn("Soprano")
If ColIntrouvable = True Then GoTo fin
ColVariato = NumColumn("Variato")
If ColIntrouvable = True Then GoTo fin
Soprano = CVar(Worksheets("RCE").Cells(Maligne, ColSoprano))
Variato = CStr(Worksheets("RCE").Cells(Maligne, ColVariato))
If (Soprano = 0) Then
Exo = 0
Else
If ((Variato = "alpha") Or (Variato = "Beta") Or (Variato = "Gamma") Or (Variato = "delta") Or (Variato = "epsilon") Or (Variato = "voir Zeta") Or (Variato= "#N/A")) Then
Exo = Soprano
Else
Alto = CSng(Variato)
Exo = Soprano * (1 + Alto)
End If
End If
Cells(Maligne, ColResultat) = Exo
End Sub

Function NumColumn(TexteRech As String) As Byte
ColIntrouvable = False
On Error GoTo erreur
NumColumn = Range("A1:IV1").Find(TexteRech, lookat:=xlWhole).Column
Exit Function
erreur:
ColIntrouvable = True
End Function

Cliquez pour agrandir...

Le problème se situe sur la variable Variato et c'est elle qui renvoie parfois l'erreur 2042! Elle peut prendre des valeurs numériques (ce qui est le mieux pour moi) ou bien des valeurs de texte (ce qui me dérange)! Lorsque ça prend une valeur non numérique, je veux que Exo renvoie Soprano; et lorsqu'il y a une valeur numérique, je veux que Exo renvoie la formule Soprano * (1 + Variato)!
J'ai donc créé une variable supplémentaire, Alto, qui est un nombre de type Single et qui prend la valeur numérique de Variato!

Comme on peut le remarquer, dans les valeurs que peut prendre Variato, il y a "#N/A", et je pense que c'est là mon problème, car il semble que, lorsque la macro rencontre la valeur "#N/A", il se déclenche une erreur... tout du moins, quand j'arrive à une erreur et que je survole les variables sur la ligne qui bloque, je vois marqué

Variato = "Erreur 2042"

Cliquez pour agrandir...

Comment faire pour contrer cette erreur, sachant que je ne peux pas modifier mon fichier de base où se trouvent les valeurs?

Merci d'avance pour votre aide!