Imprimer sur des pages différentes suivant contenu d'une colonne

Private Sub CommandButton1_Click()

Worksheets("LISTE").Sort.SortFields.Clear
Worksheets("LISTE").Sort.SortFields.Add Key:=Range("C1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("LISTE").Sort
        .SetRange Worksheets("LISTE").UsedRange
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
For Each cell In Worksheets("LISTE").Range("c1:c" & Worksheets("LISTE").[C65235].End(xlUp).Row)
    If cell.Row > 1 Then
    If cell.Offset(-1, 0).Value <> cell.Value Then
        Worksheets("LISTE").HPageBreaks.Add Before:=cell
    End If
    End If
Next cell

End Sub