Sub somme_du_mois_version1()
max= Application.WorksheetFunction.Max(Range("a1", Range("a65536").End(xlUp)))
MsgBox Format(max, "mm/yyyy")
end sub
Sub somme_du_mois_version2()
plage = Range("a1", Range("a65536").End(xlUp))
max= Application.WorksheetFunction.Max(plage_mois_teste)
MsgBox Format(max, "mm/yyyy")
End Sub