Microsoft 365 Calendrier qui s'affiche quand je sélectionne une cellule

Bonsoir a tous,


J'ai trouver ce code qui fonctionne bien mais j'aimerai l'adapter a mon fichier et je galère un peu, si quelqu'un aurai une piste ?


voila le code que j'ai trouver, j'aimerais bien le modifier pour lui dire afficher moi le calendrier, quand je sélectionne la plage de cellule

I7 à I83 et la plage K7 à k83, car avec le code ci-dessous, de dois définir cellule par cellule un peu lourd pour le code.



Private Sub Worksheet_selectionChange(ByVal Target As Range)

Dim UnJour As Date
If Target.Address = "$I$7" Or Target.Address = "$I$8" Or Target.Address = "$I$9" Then
Application.EnableEvents = False
Cancel = True
UnJour = FormCal.Calendrier
If UnJour <> 0 Then
Target = Format(UnJour, "dd/mm/yyyy")
Else
Target = ""
End If
Selection.Offset(0, 0).Select
Application.EnableEvents = True
End If

End Sub



et la deuxième spécialité, c'est que dans ma feuille actuel, j'ai déjà ce code que j'aimerais conserver


Option Explicit
Private Sub Worksheet_Change(ByVal T As Range)
If Not Intersect(T, Range("B6:B83")) Is Nothing Then
If IsEmpty(T) Then
Union(T.Offset(, 5), T.Offset(, 7), T.Offset(, 9)) = ""
Else
Exit Sub
End If
End If
End Sub


comment je pourrai lier les deux ?
j'ai tenter plein de variante mais j'ai toujours un message d'erreur quand ils fonctionnent ensemble