Debogage

Bonjour,

J'ai appliqué un code d'un tuto et lorsque je lance la macro il affiche débogage pour les 2 lignes en gras et pourtant quand je continue, la macro s'exécute bien.
J'aimerais savoir ce qui ne va pas. Merci

'********************************************************
'Récupérations des données
'********************************************************

Sub RecupereDataFichier()

'Déclaration des variables
Dim ListeFichier As Variant
Dim MonClasseur As Workbook

'On désactive le presse papier et le raffraichissement de l'écran
Application.CutCopyMode = False
Application.ScreenUpdating = False

'On efface les anciennes données
ActiveSheet.Range("A1").CurrentRegion.Clear

'On récupère le fichier de données à copier
ListeFichier = Application.GetOpenFilename(Title:="sélectionnez votre fichier", filefilter:="fichiers excel(*.xls*),*xls*", buttontext:="Cliquez")

'Prévoir le cas du bouton Annuler
If ListeFichier <> False Then
'On affecte le fichier sélectionné
Set MonClasseur = Application.Workbooks.Open(ListeFichier)
'On copie les données de la feuille 1 du classeur sélectionné
MonClasseur.Sheets(1).Range("A3").CurrentRegion.Copy
'On colle les données dans la feuille active
ThisWorkbook.ActiveSheet.Range("A1").PasteSpecial xlPasteFormulasAndNumberFormats
'On désactive les messages d'alerte de Microsoft
Application.DisplayAlerts = False
'On ferme le classeur source
MonClasseur.Close

End If

'On réactive le presse papier et le raffraichissement de l'écran
Application.CutCopyMode = True
Application.ScreenUpdating = True

End Sub