Dim plage As Range
Set plage = Range("E33:I33")
Dim mini As Byte
Dim maxi As Byte
mini = Application.WorksheetFunction.min(plage)
maxi = Application.WorksheetFunction.max(plage)
Range("E35") = mini
Range("F35") = maxi
If maxi - mini = "4" Then
Range("H35") = "4 semaines"
ElseIf maxi - mini = "5" Then
Range("H35") = "5 semaines"
Else: Range("H35") = "Pas possible"