VBA Annuler l'ouverture d'un fichier "interrompu"

Bonjour,

Je viens de commencer à apprendre le VBA sur Excel, et je rencontre un problème.

En effet, j'ai écris un code permettant d'ouvrir un fichier excel/csv, une fois ouvert on copie la premiere colonne de celui ci dans un tableau excel.

Le problème étant quand on appuie sur annuler ou la x je reçois un msg avec "exécution interrompu", mon code est sensé être utilisé par d'autre personne et ce n'est pas très professionnel que ça renvoie sur ça. Je cherche donc un moyen d'éviter que cette Box apparaisse quand j'annule l'action d'ouvrir un fichier mais j'ai trouvé nulle part.

Merci de votre aide

Mon code :

Sub importFile()

    '----Variables----'
    Dim FileToOpen As Variant

    '----Ouverture du fichier----'
    FileToOpen = Application.GetOpenFilename( _
        FileFilter:="Fichiers Excel et CSV,*.xlsx; *.csv", _
        Title:="Ouvrir un fichier excel/CSV", _
        MultiSelect:=False)

    If FileToOpen <> "Faux" Then
     Open FileToOpen For Input As #1
            Dim rowNumber As Long
            Dim lineFromFile As String
            Dim lineItems As Variant 'tableau
            Dim itteration As Integer
            rowNumber = 1

            Do Until EOF(1)
                Line Input #1, lineFromFile 'lit ligne par ligne
                lineItems = Split(lineFromFile, ";") 'recupere les cellules une part une

                If itteration = 0 Then
                    Range("tableau").Cells(rowNumber, itteration + 1) = lineItems(itteration)
                    rowNumber = rowNumber + 1
                End If
            Loop
        Close #1
    Else
    Exit Sub
    End If

End Sub