Bonjour,

est ce que quelqu'un pourrait m'aider à optimiser ma macro pour un déroulement plus rapide svp.

Voici la macro en question.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub Choix_de_fichier()
Dim Fichier As Variant
ChDir ThisWorkbook.Path
Fichier = Application.GetOpenFilename("Text Files (*.rcp), *.rcp")
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
 
Sheets("Feuil1").Select
 
 
' 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)
Cells(iRow, iCol) = Ar(i)
iCol = iCol + 1
Next
iRow = iRow + 1
Loop
Close #NumFichier
 
 
End Sub

Merci d'avance pour votre aide.

Cordialement.