Bonjour Le fil, bonjour le forum,
Un peu le même principe mais il faut toujours que je complique...
Sub Macro1()
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim I As Integer 'déclare la variable I (Incrément)
Dim V As Integer 'déclare la variable V (Valeur)
Dim VM As Integer 'déclare la variable VM (Valeur Maxi)
Dim LI As Integer 'déclare la variable LI (LIgne)
Dim L As String 'déclare la variable L (Lettre)
DL = Cells(Application.Rows.Count, "U").End(xlUp).Row 'définit la dernière ligne éditée de la colonne U
For I = 2 To DL 'boucle sur toutes les ligne de 2 à DL
V = Asc(Cells(I, "U")) 'Récupère le code de caractères de la cellule ligne I colonne U
If V > VM Then VM = V: LI = I 'si le code est supérieur à la valeur VM, redéfinit la valeur VM, définit la ligne LI
Next I 'prochaine ligne de la boucle
Cells(LI, "U").Select 'sélectionne la cellule ligbne LI colonne U (facultatif)
L = Chr(VM) 'définit la variable L (à utiliser pour la suite du code...)
MsgBox L 'affiche la lettre L (Facultatif)
End Sub