Appel macro dans userform

Private Sub VALIDATION_Click()
'genere le planning
    Dim date1 As Date
    Dim date2 As Date
    date1 = Calendar1.Value
    date2 = Calendar2.Value
    If CheckBox1.Value = True Then
        Module8.PlanningTemporel (date1, date2) 'c'est la qu'il y a le message d'erreur
    End If
End Sub

Sub PlanningTemporel(date1, date2)
    'imprime le planning defini par une periode temporelle fixe
    StopProtection 'autre macro
    Sheets("Planning Temporel").Select
    With Sheets("Planning Temporel")
            .Select
            .Range("A1", Cells.SpecialCells(xlCellTypeLastCell)).Clear
            .Range("A1").FormulaR1C1 = "Machines"
            .Range("B1").FormulaR1C1 = "Dates"
            .Range("C1").FormulaR1C1 = "Interventions"
        End With
        'tri du listing par prochaine date d'intervention
        With Worksheets("Listing").Sort
            .SortFields.Clear
            .SortFields.Add Key:=Range("E:E")
            .SetRange Range("B:AF")
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
        'création du tableau a imprimer
        Worksheets("Planning Temporel").ListObjects _
            .Add(xlSrcRange, Range("$A$1:$C$1"), , xlYes) _
            .Name = "TabPlanningTemporel"
        'on parcourt ttes les lignes a partir de la 2e
        For Li = 2 To Worksheets("Listing").Cells.SpecialCells(xlCellTypeLastCell).Rows.Count
            If Worksheets("Listing").Cells(Li, "E").IsEmpty = False Then      'si la prochaine date dintervention est definie
                Worksheets("Planning Temporel") _
                    .ListObjects("TabPlanningTemporel").ListRows.Add (1)
                With Worksheets("Listing")
                    .Cells(Li, "I").Content.Copy (Worksheets("Planning Temporel") _
                        .ListObjects("TabPlanningTemporel").Range(1, 1))
                    .Cells(Li, "E").Content.Copy (Worksheets("Planning Temporel") _
                        .ListObjects("TabPlanningTemporel").Range(1, 2))
                    .Cells(Li, "M").Content.Copy (Worksheets("Planning Temporel") _
                        .ListObjects("TabPlanningTemporel").Range(1, 3))
                End With
                'voir si lintervention dapres est a imprimer
                'ie periode dintervention < intervalle du planning
                'a faire
            End If
        Next
    Sheets("Planning Temporel").Range("A1").Select
End Sub