Code Private...nom ambigu détecté....

Bonjour à tout le form,

Je souhaiterais votre aide pour adapter ce code...

J'ai ces deux codes sous la même feuille comment modifier pour que ça fonctionne? (suis zéro en VBA)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([c10:c10], Target) Is Nothing Then
UserForm3.Show
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([c6:c6], Target) Is Nothing And Target.Count = 1 Then
If EstOuvertUF("F_calendar") Then Unload F_calendar
F_calendar.Show
End If
End Sub

Merci pour le temps que vous voudrez bien m'accorder.

Bien amicalement,
Christian