Bonjour le fil, bonjour James,
J'avais commencé a travailler sur le problème et entre temps j'ai été interrompu... Je reviens et je vois que James a, encore une fois, œuvré à vitesse grand V... J'envoie quand même le fruit de mon labeur (ho la gueule du fruit !...).
Sub Macro1()[/color]
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim LD As Long 'déclare la variable LD (Ligne de Début)
Dim LF As Long 'déclare la variable LF (Ligne de Fin)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Set O = Sheets("Feuil3") 'définit l'onglet O
O.Range("A1").Select 'sélectionne la cellule A1 de l'onglet O
Do Until LF = Application.Rows.Count 'éxecute tant que la ligne de fin LF n'est pas la dernière ligne
LD = ActiveCell.End(xlDown).Row 'définit la ligne de début LD
LF = Cells(LD, 1).End(xlDown).Row 'définit la ligne de fin LF
TC = Range(Cells(LD, 14), Cells(LF, 14)) 'définit le tablau de cellules TC
'renvoie dans la plage en colonne 15 (=O) la valeur max du tableau de celllues TC
Range(Cells(LD, 15), Cells(LF, 15)).Value = Application.WorksheetFunction.Max(TC)
Cells(LF, 1).Select 'sélectionne la cellule ligne LF, colonne 1 (=A)
Loop 'boucle
End Sub