Erreur d'exécution '13' : Incompatibilité de type

Bonjour,

J'écris un code pour calculer un indice à partir d'une sélection de colonnes dans un tableur excel, cependant lorsque j'exécute le code, j'ai un massage d'erreur "incompatibilité de type" et je ne comprend pas d'où vient l'erreur ...
Le message arrive au niveau du texte en gras.
Voici le code :

Sub Fanger()
Dim pa As Single
Dim i As Integer, x As Integer, j As Integer
Set variable = Sheets("1260").Range("L2:AE8761") 'constants temperature
Set variable2 = Sheets("1260").Range("AF2:AO8761") 'constants humidity
Set output = Sheets("1260").Range("AQ2:AZ8761")

For i = 2 To 8761
x = 1
j = 1

Do

TA = variable(i, x) ' Local air temperature
TR = variable(i, x) ' Mean radiant temperature
RH = variable2(i, j)
ps = 6.11 * 10 ^ ((7.5 * TA) / (273.3 + TA))
pa = ps * (RH / 100) ' correlation with air temperaure, approximation to skip humidity value

Next

End Sub

Je ne comprend vraiment pas pourquoi, si quelqu'un peut m'aider :)

Merci beaucoup.