11660 résultats trouvés

...
If Not Application.Intersect(Target, Range("A3")) Is Nothing Then
    For i = 32 To 35
...

Sub SORT_CUST()
    
    With Sheets("Customer")
        .Range("A1:B" & .Range("A" & Rows.Count).End(xlUp).Row).Sort key1:=.Range("A2"), order1:=xlAscending, Header:=xlYes
    End With
End Sub