Oui c'est bien ça, je souhaiterais avoir pour x= 1 to y
La plus petite valeur supérieur à 0
Ma plage de recherche est rows(2), j'ai fais un essai avec countif pour voir, mais effectivement pas très concluant.
For x = 1 To y 'boucle pour récupérer les valeurs les plus eleveées
With Sheets("Feuil1").Activate
'récupère la Xieme valeur la plus élevée dans la 2eme ligne
NombreG = Application.WorksheetFunction.Large(Rows(2), x)
NombreP = Application.WorksheetFunction.CountIf(Application.WorksheetFunction.Small(Rows(2), x), ">0")
'recherche le numéro de la colonne pour la valeur trouvée
ColonneG = Application.Match(NombreG, Rows(2), 0)
colonneP = Application.Match(NombreP, Rows(2), 0)
If x = y Then Exit Sub
Else
If Application.WorksheetFunction.Large(Rows(2), x) = Application.WorksheetFunction.Large(Rows(2), x + 1) Then Exit Sub
If Application.WorksheetFunction.CountIf(Application.WorksheetFunction.Small(Rows(2), x), "<0") = Application.WorksheetFunction.CountIf(Application.WorksheetFunction.Small(Rows(2), x + 1), "<0") Then
Exit Sub
End with