XL 2016 VBA, ajouter 30 jours a aujourd'hui

[Scorpio]

Bonjour à tous,
J'ai une code et j'aimerais bien modifier mais je n'arrive pas.
En fait, ce code dont on double-clic dessus, affiche la date du jour
Mais, j'aimerais y ajouter 30 jours de plus a cette date du jour.
Si un membre pourrais me donner ce petit coup de pouce, je vous en remercie.
a ++++
Voici le code;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
Cancel = True
Target.Font.ColorIndex = IIf(Target.Font.ColorIndex = 3, 0, 3) '3=rouge, 0=Noir
If Cells(Target.Row, 7) = "" Then
Cells(Target.Row, 7) = Date 'Affiche la date du jour en colonne F

Else
Cells(Target.Row, 7) = ""
End If
End If
End Sub

 

[Jacky67]

Bonjour à tous,
J'ai une code et j'aimerais bien modifier mais je n'arrive pas.
En fait, ce code dont on double-clic dessus, affiche la date du jour
Mais, j'aimerais y ajouter 30 jours de plus a cette date du jour.
Si un membre pourrais me donner ce petit coup de pouce, je vous en remercie.
a ++++
Voici le code;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
Cancel = True
Target.Font.ColorIndex = IIf(Target.Font.ColorIndex = 3, 0, 3) '3=rouge, 0=Noir
If Cells(Target.Row, 7) = "" Then
Cells(Target.Row, 7) = Date 'Affiche la date du jour en colonne F

Else
Cells(Target.Row, 7) = ""
End If
End If
End Sub

Bonjour,

Cells(Target.Row, 7) = Date + 30
Ne fait pas ???