XL 2013 option button

Bonjour voici ma formule pour mon optionButton, j'aimerais lorsque je click que dans le TextBox 2 la date d'aujourd'hui s'inscrivent ce qui inscrira automatiquement le délais de 6 mois. La raison c'est que plusieurs de mes collègues de remplissent pas le texteBox2

merci de votre patience et surtout de vos connaissances



Private Sub OptionButton37_Click()
Dim Délai
If Me.TextBox2.Value = "" Then Exit Sub
' Délai 1 mois
Délai = 6
Me.Tfiltrage.Value = Format(DateAdd("m", Délai, Me.TextBox2))
End Sub