Traitement Tableau!!!

Sub traitement()
Dim taux As Range
With Sheets("Feuil2")
    .Range(.[A2], .[C2].End(xlDown)).ClearContents
    For Each taux In Range([D2], [D2].End(xlDown))
        If taux.Offset(-1, 0).Value <> taux.Value Then  'taux avant différent
            nbmin = taux.Offset(0, -3).Value
            nbmax = taux.Offset(0, -2).Value
        ElseIf taux.Offset(-1, 0).Value = taux.Value Then 'taux avant égal
            If taux.Offset(0, -3).Value < nbmin Then
                nbmin = taux.Offset(0, -3).Value
            End If
            If taux.Offset(0, -2).Value > nbmax Then
                nbmax = taux.Offset(0, -2).Value
            End If
        End If
        If taux.Offset(1, 0).Value <> taux.Value Then 'taux après différent
            If taux.Offset(0, -3).Value < nbmin Then
                nbmin = taux.Offset(0, -3).Value
            End If
            If taux.Offset(0, -2).Value > nbmax Then
                nbmax = taux.Offset(0, -2).Value
            End If
            .Range("A65536").End(xlUp).Offset(1, 0).Value = nbmin
            .Range("B65536").End(xlUp).Offset(1, 0).Value = nbmax
            .Range("C65536").End(xlUp).Offset(1, 0).Value = taux.Value
        End If
    '    Debug.Print "X:" & nbmin, "Y:" & nbmax, "Taux" & taux.Value
    Next
End With
End Sub