Dim DernLigne, i As Long, NomConsultant As String
Nbjours.Show
ActiveWorkbook.Worksheets("Données").Activate
DernLigne = Range("A1048576").End(xlUp).Row
MsgBox DernLigne
For i = 3 To DernLigne
If Cells(i + 1, 1).Value = Cells(i + 1, 1).Value = Cells(i + 2, 1).Value Then
MsgBox Application.WorksheetFunction.Sum(Range(i, 3, i + 2, 40))
Range(Cells(i, 3), Cells(i + 2, 40)).Select
MsgBox Application.WorksheetFunction.Sum(Selection)
End If
Next
End Sub