Bonjour je voudrais comprendre le code vba d'impression ci dessous?

Function PrintSelectedSheets()

Dim I As Long

Dim TopPos As Long

Dim SheetCount As Long

Dim PrintDlg As DialogSheet

Dim CurrentSheet As Worksheet

Dim CB As CheckBox

Dim Numcop As Long

Dim X

Application.Dialogs(xlDialogPrinterSetup).Show

Application.ScreenUpdating = False

If ActiveWorkbook.ProtectStructure Then

MsgBox "Workbook is protected.", vbCritical

Exit Function

End If

Set CurrentSheet = ActiveSheet

X = CurrentSheet.Name

Set PrintDlg = ActiveWorkbook.DialogSheets.Add

SheetCount = 0

TopPos = 40

For I = 1 To ActiveWorkbook.Worksheets.Count

Set CurrentSheet = ActiveWorkbook.Worksheets(I)

If Application.CountA(CurrentSheet.Cells) <> 0 And CurrentSheet.Visible Then

SheetCount = SheetCount + 1

PrintDlg.CheckBoxes.Add 78, TopPos, 150, 16.5

PrintDlg.CheckBoxes(SheetCount).Text = CurrentSheet.Name

TopPos = TopPos + 13

End If

Next I

PrintDlg.Buttons.Left = 240

With PrintDlg.DialogFrame

.Height = Application.Max(68, PrintDlg.DialogFrame.Top + TopPos - 34)

.Width = 230

.Caption = "Sélectez les Fuielles de calcul à imprimer"

End With

PrintDlg.Buttons("Button 2").BringToFront

PrintDlg.Buttons("Button 3").BringToFront

Numcop = Application.InputBox("Entrez le nombre de copies à imprimer:", "Combien de copies?", 1, Type:=1)

If Numcop = 0 Then

ElseIf Len(Numcop) > 0 Then

End If

CurrentSheet.Activate

Dim cnt As Integer

Application.ScreenUpdating = True

If SheetCount <> 0 Then

If PrintDlg.Show Then

For Each CB In PrintDlg.CheckBoxes

If CB.Value = xlOn Then

If cnt = 0 Then

Worksheets(CB.Caption).Select

Else

Worksheets(CB.Caption).Select Replace:=False

End If

cnt = cnt + 1

End If

Next CB

ActiveWindow.SelectedSheets.PrintOut copies:=Numcop

End If

Else

MsgBox "Toutes les feuilles de calcul sont vides."

End If

Application.DisplayAlerts = False

PrintDlg.Delete

Sheets(X).Select

Application.DisplayAlerts = True

End Function