Doubler la fonction de la formule

Bonjour à tous

J'ai une formule qui me permet de donner la date et l'heure lors d'une modification dans une partie de colonne(cellule G11 à G1319 daté dans colonne H), cela fonctionne.
Ce que j'aimerai c'est que cette formule puisse aussi être appliquée à une autre partie de colonne (cellule I11 à I1319 avec la date dans la colonne J)

Dans le code ci dessous j'ai juste modifié la formule mais je ne connais pas la syntaxe pour que la formule fonctionne.

J'espère avoir été clair et merci d'avance pour votre aide.

Cordialement
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("G11:G1319")) Is Nothing Or Target.Count > 1 Then: Exit Sub Cells(Target.Row, 8) = Format(Date, "dd/mm/yyyy") & Format(Time, " hh:mm:ss") If Intersect(Target, Range("I11:I1319")) Is Nothing Or Target.Count > 1 Then: Exit Sub Cells(Target.Row, 10) = Format(Date, "dd/mm/yyyy") & Format(Time, " hh:mm:ss") End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Not Intersect(Target, Union(Range("G11:G1319"), Range("I11:I1319"))) Is Nothing Then
    With Target(1, 1)
        Application.EnableEvents = False
        If .Value <> "" Then
            .Offset(0, 1).Value = Now
            .Offset(0, 1).NumberFormat = "dd/mm/yyyy hh:mm:ss"
        Else
            .Offset(0, 1).ClearContents
        End If
        Application.EnableEvents = True
    End With
End If
End Sub

Impec merci beaucoup pour ta réponse et ta rapidité.;)