Recherche la plus grande valeur +1

Function Chiffre(Valtexte As Range)
'
'[URL="http://groups.google.fr/group/microsoft.public.fr.excel/msg/97bf61b576fe801c"]origine de la fonction[/URL]
Dim i As Byte
For i = 1 To Len(Valtexte)
If Asc(Mid(Valtexte, i, 1)) >= 48 And Asc(Mid(Valtexte, i, 1)) <= 57 Then
Chiffre = Val(Chiffre & Mid(Valtexte, i, 1))
End If
Next
End Function
Sub test()
For i = [A65536].End(xlUp).Row To 1 Step -1
Cells(i, 2) = Chiffre(Cells(i, 1))
Next i
MsgBox Application.WorksheetFunction.Max(Range("B1:B" & [B65536].End(xlUp).Row)) + 1
Columns(2).Delete
End Sub

Sub test()
For i = [A65536].End(xlUp).Row To 1 Step -1
Cells(i, 2) = Chiffre(Cells(i, 1))
Next i
MsgBox Application.WorksheetFunction.Max(Range("B1:B" & [B65536].End(xlUp).Row)) + 1
Columns(2).Delete
End Sub