dl = .Cells(Application.Rows.Count, 1).End(xlUp).row 'définit la dernière ligne éditée dl de la colonne 1 (=A) de l'onglet
Set pl = .Range("A2:G" & dl) 'définit la plage pl
.Range("A1").AutoFilter 'lance le filtre automatique sur la colonne A
.Range("A1").AutoFilter Field:=1, Criteria1:=id 'filtre la colonne 1 avec la valeur id comme critère (identifiant)
.Range("G1").AutoFilter 'lance le filtre automatique sur la colonne G
.Range("G1").AutoFilter , Field:=6, Criteria1:=Application.WorksheetFunction.Large(Columns(6), 1)
'la dernière ligne devrait filtrer la colonne G avec la valeur maximum trouvée en colonne G