XL 2013 probleme import fichier VBA

[bredeche]

Bonjour
je me permet de vous contacter car dans la mise en place de ma macro tst qui est sur la feuille CR me pose un problème
je voudrais que les colonne BO BP BQ BR BS BT lors de mon import les formules sont écraser ,moi je désire que ces colonnes reste apres import
merci de votre le fichier trop volumineux ci dessous mon vba
merci de votre aide

Sub Tst()
Dim Fichier As Variant
    ChDir ThisWorkbook.Path
    Fichier = Application.GetOpenFilename("Text Files (*.csv), *.csv")
    If Fichier <> False Then
        Lire Fichier
    End If
End Sub

Sub Lire(ByVal NomFichier As String)

Dim Chaine As String
Dim Ar() As String
Dim i As Long
Dim iRow As Long, iCol As Long
Dim NumFichier As Integer
Dim Separateur  As String * 1
 
    '  Séparateur Point Virgule
    Separateur = ";"
    
    Cells.Clear
    Application.ScreenUpdating = False
    NumFichier = FreeFile
    iRow = 1
    
    Open NomFichier For Input As #NumFichier
        Do While Not EOF(NumFichier)
            iCol = 1
            Line Input #NumFichier, Chaine
            Ar = Split(Chaine, Separateur)
            For i = LBound(Ar) To UBound(Ar)
                Ar(i) = Replace(Ar(i), "M-", "")
                Cells(iRow, iCol) = Ar(i)
                iCol = iCol + 1
            Next
            
            Select Case Cells(iRow, 1)
                Case Is = Cells(iRow, 2)
                            
        End Select
            
            iRow = iRow + 1
        Loop
    Close #NumFichier
    
    Application.ScreenUpdating = True
End Sub

merci de votre aide

 

[Wayki]

Bonjour,
Difficile comma ça en premier abord, mais ta macro commence déjà par cells.clear, peut être orienter pour qu'il le fasse dans une plage donnée sans toucher aux colonnes voulues ?
A +

 

[bredeche]

merci pour l’œil aguerrit
je n'avais pa vu que j'avais mis cells.clears
a+