Sub TrieEtValClaude()
' Excel-lent le 22/09/07
Dim DerLigne As Integer
Dim i As Integer
Dim a As Single
DerLigne = Range("a1").End(xlDown).Row
Range(Cells(1, 1), Cells(DerLigne, 2)).Sort Key1:=Cells(1, 1), Order1:=xlAscending, Header:=xlGuess
For i = 1 To DerLigne
If Cells(i, 1).Value = "CLAUDE" Then
a = Cells(i, 2)
End If
Next i
Cells(DerLigne, 3) = a
End Sub