Macro Erreur '13' Type incompatible

Bonjour les amis


Un erreur s'affiche dans ma macro lors de son exécution : Erreur '13' Type incompatible , le code s’arrête ici :

If Left(Ws1.Range("G113").Value, 5) + Ws2.Range("D2").Value + 500000 + 2967 = Ws2.Range("B12").Value Or Ws3.Range("BB21").Value = 1 Then


pourtant cette condition se trouve dans d'autre macro de mon classeur sans aucun problème

voila le code complet de la macro et merci de votre aide :

Sub auto_open()
'
' auto_open Macro
'

'
Dim Ws1 As Worksheet, Ws2 As Worksheet, Ws3 As Worksheet
Set Ws3 = Worksheets("BDMJOUR")
Set Ws2 = Worksheets("accueil")
Set Ws1 = Worksheets("es1")


If Left(Ws1.Range("G113").Value, 5) + Ws2.Range("D2").Value + 500000 + 2967 = Ws2.Range("B12").Value Or Ws3.Range("BB21").Value = 1 Then


Sheets("P-ac").Select
Range("B5").Select
Else:
Sheets("ES1").Activate
Range("a1:cx80").ClearContents
Sheets("ES2").Activate
Range("a1:cx80").ClearContents
Sheets("ES3").Activate
Range("a1:cx80").ClearContents
Sheets("ES4").Activate
Range("a1:cx80").ClearContents
Sheets("ES5").Activate
Range("a1:cx80").ClearContents
Sheets("ES6").Activate
Range("a1:cx80").ClearContents
Sheets("ES7").Activate
Range("a1:cx80").ClearContents
Sheets("bd").Activate
Range("B8:cA60").ClearContents
Sheets("bdens").Activate
Range("B7:cA60").ClearContents
Sheets("bdtrs").Activate
Range("B5:cA60").ClearContents
Sheets("P-ac").Select
Range("B5").Select

End If



End Sub