Erreur d’exécution '13', Incompatibilité de type

]Bonjour à tous,

Alors voila je réalise un projet sur vba sur la création d'un jeu et je me suis heurté a un casse tête.

Une "Incompatibilité de type" m'est signalée mais je n'arrive pas à trouver d'ou vient le problème.

Voici mon code :

Sub lancerledés()

Dim Positionpion As String
Dim ProchaineCase As String
Dim Caseactuelle As String
Dim Cases As Variant
Dim nbcases As Integer
Dim i As Integer
Dim j As Integer

    If Range("fin_jeu") = "VRAI" Then
    MsgBox ("La partie est terminée, si vous voulez rejouer cliquez sur le bouton Nouveau jeu")
    Exit Sub
    End If

'changer de joueur après le lancé de dé
Range("joueuractif") = Range("joueuractif") + 1
    If Range("joueuractif") = Range("nbjoueurs") + 1 Then
        Range("joueuractif") = 1
    End If

    If Range("J" & Range("joueuractif") & "_reussi") = "Vrai" Then
    Range("J" & Range("joueuractif") & "_case") = "casefinal"

Dim Themequestion As String

Caseactuelle = "casefinal"
Themequestion = "final"

CarteQuestion.Caption = "question" & " " & Themequestion
CarteQuestion.LQuestion = Range(Themequestion & "Texte")
CarteQuestion.Show

Reponse = Range("Reponsejoueur")

If Themequestion = "final" And Reponse = Range("finalReponse") Then
        MsgBox ("Bravo, " & Reponse & " est la bonne réponse.")
        Range("J" & Range("joueuractif") & "final") = "Vainqueur"
        MsgBox ("Bravo joueur " & Range("joueuractif") & " " & "tu as gagné la partie")

[Surligner]Podium.Lpremier = Range("premier")[/Surligner]
Podium.Lsecond = Range("second")
Podium.Ltroisieme = Range("troisieme")
Podium.Show

    Else
        MsgBox ("Dommage " & Reponse & " n'est pas la bonne réponse, " & vbNewLine & vbNewLine & _
            "La bonne réponse étatit " & Range(Themequestion & "Reponse"))
    End If

L'erreur m'est indiquée au niveau de la ligne:

Podium.Lpremier = Range("premier")

Je ne comprend pas pourquoi j'ai cette erreur alors que j'ai écrit pareil pour le "CarteQuestion.LQuestion" et que je n'ai pas de problème.

Merci d'avance pour vos réponses qui me seront d'un grand aide !

Bonjour et bienvenue sur le forum

Tu devrais joindre ton fichier...

Bye !