Comment faire, une macro avec ces deux macros

Private Sub Worksheet_SelectionChange(ByVal r As Range)
  If Intersect(r, [C2]) Is Nothing Then Exit Sub
  F_calendrier1dateTableur.Top = 150
  F_calendrier1dateTableur.Left = 300
  F_calendrier1dateTableur.Show
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect([B5], Target) Is Nothing And Target.Count = 1 Then
  UserForm2.Left = Target.Left + 10
  UserForm2.Top = Target.Top + 90 - Cells(ActiveWindow.ScrollRow, 1).Top
  UserForm2.Show
End If
End Sub