Pour alimenter la rubrique "plusieurs solutions pour un même problème", voici une autre façon de faire, par macro, peut-être plus facile à modifier au cas où.
Function AdresseIP(ByVal IP As String) As String
'Ti
Dim Digit As String
Do While Right(IP, 1) <> "."
IP = Left(IP, Len(IP) - 1)
Loop
IP = Left(IP, Len(IP) - 1)
Do While Right(IP, 1) <> "."
Digit = Right(IP, 1) & Digit
IP = Left(IP, Len(IP) - 1)
Loop
AdresseIP = IP & Val(Digit) + 1 & ".254"
End Function