Bonjour,

Le code ci-dessous fonctionne:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveWorkbook.Worksheets("2017").Sort.SortFields.Add Key:=Range("C2:C234"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
Tandis que celui-ci se plante:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveWorkbook.Worksheets("2017").Sort.SortFields.Add Key:=Range(Cells(2, 3), Cells(NbMaxLigne, 3)).Address(RowAbsolute:=False, ColumnAbsolute:=False), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
Quelqu'un a une idée de ce qui manque ? des guillemets ? Si oui, je ne vois pas comment les ajouter.

Merci d'avance pour votre réponse.

Henri