Impossible de Trouver l'Erreur dans la Macro

Question

J'ai Bon cherché, une demi journée,mais j'ai lâcher Voici un petit fichier avec la macro Merci Beaucoup très Bonne Continuation...

m3ellem1 · Answer

Slt B52,

essaie comme ca:

Sub trier_tableau_avec_deux_criteres()

Dim onglet As Worksheet
Dim derniere_colonne As Long
Dim derniere_ligne As Long

'identifier onglet
Set onglet = Worksheets(3)

'trouver les limites du tableau
derniere_ligne = onglet.Cells(Rows.Count, 1).End(xlUp).Row
derniere_colonne = onglet.Cells(1, Columns.Count).End(xlToLeft).Column

'trier par colonne A puis B
onglet.Range(onglet.Cells(1, 1), onglet.Cells(derniere_ligne, derniere_colonne)).Sort _
Key1:=onglet.Range("A1"), order1:=xlAscending, Key2:=onglet.Range("B1"), order2:=xlAscending, Header:=xlYes

End Sub

Le problème c'est un espace aprés le Sort : ".Sort_" ==> ".Sort _"