Incrementation automatique d'un numero avec un macro

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Data1() As String, Valeur1 As Integer
Data1 = Split(CStr(Target.Value), ".")
Valeur1 = CInt(Data1(3) + 1) ' 1 a modifier en fonction de l'incrément désiré
' Le nombre de chiffre étant variable ( 192.168.1.1  a 192.168.256.xxx ) on construit l'adresse IP avec les octets
Target.Value = Data1(0) & "." & Data1(1) & "." & Data1(2) & "." & Valeur1  
End Sub
[CODE]

A tester

JP

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim pas&, s
pas = 14 'à adapter
If InStr(Target, ".") = 0 Then Exit Sub
Cancel = True
s = Split(Target, ".")
s(UBound(s)) = Val(s(UBound(s))) + pas
Target = Join(s, ".")
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Cellules à  modifier
If Target.Address = "$B$3" Then Range("b2").Activate 'B2 est la cellule du résultat

'LA MACRO
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim pas&, s
If Target.Address <> "$B$2" Then
Range("b2").activate
pas = 14 'à adapter
If InStr(Range("b2"), ".") = 0 Then Exit Sub
Cancel = True
s = Split(Range("b2"), ".")
s(UBound(s)) = Val(s(UBound(s))) + pas
Range("b2") = Join(s, ".")
Else
Exit Sub
End If
End Sub