Personne n'a d'idée????

car j'ai réelement besoin de cette macro...

Salut,

pas besoin de macro, une simple formule suffit :

=MAX(feuille1!B:B)

en supposant que ta colonne B ne contiennet que des poids et pas d'autres données, sinon, il faut limiter avec B1:Bxx.

A+ Blux

 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"

Bonjour,

La structure que je t'ai proposé est fonctionnel pour ce genre de traitement,
suffit de modifier les noms d'objets.

Option Explicit
'

Type typVehicule
        Nom As String
        LaDate As Date
        Kilom As Double
End Type
'

Dim LesVH() As typVehicule
'

Sub RechercheMaximum()

    Dim Boucle As Long, Limite As Long
    Dim Compteur As Long, UneDate As Date
    Dim Vehicule As String, Kilom As Long
    
    Limite = Range("A65536").End(xlUp).Row
    
    
    For Boucle = 1 To Limite
        ReDim Preserve LesVH(Boucle)
        Vehicule = Cells(Boucle, 1).Value
        UneDate = Cells(Boucle, 2).Value
        Kilom = Cells(Boucle, 3).Value
        For Compteur = 0 To (UBound(LesVH) - 1)
            If (Vehicule = LesVH(Compteur).Nom) Then
                If (LesVH(Compteur).Kilom < Kilom) Then
                    LesVH(Compteur).Kilom = Kilom
                    LesVH(Compteur).LaDate = UneDate
                End If
            Else
                LesVH(Compteur).Nom = Vehicule
                LesVH(Compteur).LaDate = UneDate
                LesVH(Compteur).Kilom = Kilom
            End If
        Next Compteur
    Next Boucle
    
    Worksheets.Add
    ActiveSheet.Name = "Cumulatif"
    For Boucle = 1 To UBound(LesVH)
        Cells(Boucle, 1).Value = LesVH(Boucle - 1).Nom
        Cells(Boucle, 2).Value = LesVH(Boucle - 1).LaDate
        Cells(Boucle, 3).Value = LesVH(Boucle - 1).Kilom
    Next bouble

End Sub
'