Don't know if this is what you're looking for.

Sub maxit()
Dim MaxNum As Integer
MaxNum = Application.WorksheetFunction.Max(Range("A1:A4"))
MsgBox MaxNum
End Sub

Can replace "Range("A1:A4")" With another range or variable

"hexadec" wrote:

Avec quelle fonction, trouver le MAXIMUM d'une dizaine de variables
numériques ???

La fonction Max existe pour les formules dans les worksheets , mais pas en
programmation VB !!!!!!!!!!!!!!