Bug macro ?

Bonjour,

mon code ci dessous me renvoie l'erreur "type mismatch" mais pourtant cela fonctionne bien.

Le but de la macro est d'additionner "I2" sur toutes mes sheets (hormis celles que je spécifie dans le code) dans la cellule "I3" de la feuille "SUMMARY COSTS BREAKDOWN FORM"

Pourquoi cette erreur??? Merci de vorte aide!


Sub addition()

Dim i As Long

For i = 1 To Worksheets.Count

If Worksheets(i).Name <> "COVER" _
Or Worksheets(i).Name <> "SUMMARY COSTS BREAKDOWN FORM" _
Or Worksheets(i).Name <> "project selection" _
Or Worksheets(i).Name <> "MEMBER" _
Or Worksheets(i).Name <> "overview" _
Or Worksheets(i).Name <> "sheet1" Then

Worksheets("SUMMARY COSTS BREAKDOWN FORM").Range("i3").Value = Worksheets("SUMMARY COSTS BREAKDOWN FORM").Range("i3").Value + Worksheets(i).Range("i2").Value
End If

Next i
End Sub