Erreur 13 type missmatch vba

If Module_Dure_Str = "" Then
	Module_Dure = 0
Else
	Module_Dure = Val(Module_Dure_Str) * 1
End If

Sub test()

Dim NbrVariant, NbrDouble As Double
' La définition qui précède signifie que NbrVariant est de Type Variant 
' et que NbrDouble est de type double

NbrVariant = "12,4"
' L'affectation qui précède affecte un type "double" dans un type variant
' donc le type de NbrVariant devient de type "double"

NbrDouble = NbrVariant / 2
' L'opération qui précède fonctionne bien puisque un type "double"
' NbrVariant (type modifé par l'instruction d'affectation) est divisé par 2
' et le résultat est envoyé dans un variable de type "double"

NbrVariant = "12.4"
' Ici on prépare une erreur de type mismatch car l'affectation envoie
' dans la variable une chaîne de caractère dans un type variant, ce
' type est alors modifié de devient un type string

NbrDouble = NbrVariant / 2
' Ici, se produit le type mismatch puisque NbrVariant est devenu un type
' string suite à l'affectation et on tente une opération mathématique sur
' un type string

End Sub

Dim DblNombre As Double
Dim StrMessage As String
Dim LngNombreEntier As Long

Dim StrTexte As String, StrMarque As String
' Lors de déclaration de plusieurs variables sur un même ligne
' Sous VBA chaque variable doit être défini par son type

Dim StrTexte, StrMarque As String
' Cette déclaration spécifie implicitement que
Dim StrTexte As Variant, StrMarque As String
' Ce qui amène les erreurs de type mismatch lorsque l'on ne connaît
' pas bien nos variables ou les Types Variant qui peuvent recevoir
' n'importe quel contenu lors d'une affectation en prenant le type
' défini par le contenu