Boite de dialogue Excel

Bonjour,

Bonjour,

Je souhaiterai que ma macro vba se lance automatiquement lorsque l'on clique sur une cellule d'une même colonne. Et je ne parviens pas à ce que l'élément coché dans ma boîte de dialogue vienne s'inscrire automatiquement dans ma cellule.

Voilà ce que j'ai tenté comme macro

Sub Rdv()

Dim i As Integer
Dim TopPos As Integer
Dim PrintDlg As DialogSheet
Dim cb As OptionButton
Dim Choix1, Choix2

Application.ScreenUpdating = False

Set PrintDlg = ActiveWorkbook.DialogSheets.Add

ArrChoix = Array("", "07h30-08h30", "08h30-10h30", "10h30-12h30", "13h30-15h30", "15h30-17h30")

TopPos = 40
For i = 1 To 5
PrintDlg.OptionButtons.Add 78, TopPos, 150, 16.5
PrintDlg.OptionButtons(i).Text = ArrChoix(i)
TopPos = TopPos + 13
Next i

PrintDlg.Buttons.Left = 240

With PrintDlg.DialogFrame
.Height = Application.Max _
(68, PrintDlg.DialogFrame.Top + TopPos - 34)
.Width = 230
Caption = "Choisissez une option"
End With

PrintDlg.Buttons("Button 2").BringToFront
PrintDlg.Buttons("Button 3").BringToFront
PrintDlg.Show

For i = 1 To 5
If PrintDlg.OptionButtons(i).Value = xlOn Then
Choix1 = PrintDlg.OptionButtons(i).Text
End If
Next
If Choix1 = "" Then
MsgBox "Aucun choix n'a été fait"
Else
MsgBox "Choix effectué : " & Choix1
End If

Application.DisplayAlerts = False
PrintDlg.Delete
Application.DisplayAlerts = True
End Sub

Merci d'avance.

Clem