Optimiser un petit morceau de code

Bonjour,

Je cherche a savoir si il est possible d'optimiser le code suivant, de maniere a le rendre plus rapide.
le code va récuperer une donnée se situant dans un fichier le referme puis passe au fichier suivant.

Meme si vous avez quelques subtilités a me fournir n'hésitez pas

Code:

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
Sub Macro2()
 
 
Application.ScreenUpdating = False
'ici se trouve le chemin d'accés du repertoire
racine = Range("v12")
 
'efface les données présentent dans ma colonne
Range(Range("cq23"), Range("cq60")).Select
Selection.ClearContents
 
' la ligne 23 est la premiere ligne de ma colonne
Z = 23
Range("cq21").Select
 
 
While Cells(Z, 69) <> "" 'la colonne d'a coté contient le nom du fichier a ouvrir
fichier = Cells(Z, 69)
 
'ouverture du fichier en question
Workbooks.Open Filename:=racine & fichier
'récuparation de la donnée
stock = Right(Range("a3"), 10)
'fermeture du fichier
Workbooks(fichier).Close
 
'sotck de la donnée dans ma colonne
Cells(Z, 95) = stock
 
'incrementation
Z = Z + 1
 
Wend

merci

Code:

1 2 3 Range(Range("cq23"), Range("cq60")).Select Selection.ClearContents
Peut etre remplacé avantageusement par :

Code:

Range(Range("cq23"), Range("cq60")).ClearContents

a oui j'ai oublié de préciser que ce sont des cellules fusionnées, donc ca ne fonctionne pas en mettant tout sur une seule ligne.
merci

Bonjour

essaye

Code:

Range("cq23").ClearContents