Bonjour à tous,

Lorsque j'utilise la fonction sum dans mon programme, j'ai un bug. Cela m'affiche la méthode "Range de l'objet Worksheet a échoué"

Je ne comprend pas très bien d'où viens le problème
Merci de votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
    For b = 71 To 700 Step 70
        For i = 1 To 12
If Feuil4.Cells(b, 6).Value Like Cible Then
            If Feuil4.Cells(b + 8, i + 1) = "1/13" Then
 
             points14= points14+ Application.WorksheetFunction.Sum(Feuil4.Range(Cells(b + 10, i + 13), Cells(b + 10, 25)))
             points13= points13+ Application.WorksheetFunction.Sum(Feuil4.Range(Cells(b + 10, i + 1), Cells(b + 10, 13)))
         End If
End If
        Next i
    Next b