La méthode Range de l'objet global à échoué" au niveau de ImportRange ?

Sub importCSV()
Dim dialogBox As FileDialog
Dim selectedFile As String
Set dialogBox = Application.FileDialog(msoFileDialogFilePicker)

With dialogBox
.Filters.Add "CSV", "*.CSV", 1
.AllowMultiSelect = False
If .Show = True Then
selectedFile = .SelectedItems(1)
End If
End With

If selectedFile <> "" Then
Open selectedFile For Input As #1
Dim rowNumber As Long
Dim linefromfile As String
Dim lineItems As Variant
Dim itteration As Integer

rowNumber = 1

Do Until EOF(1)
Line Input #1, linefromfile
lineItems = Split(linefromfile, ";")

For itteration = 0 To 4

Range("importRange").Cells(rowNumber, itteration + 1) = lineItems(itteration)

Next

rowNumber = rowNumber + 1

Loop

Close #1

End If



End Sub