Bonjour a tous et merci pour votre aide.
J’ai besoin chercher le nom « Dia18 » et « dia10 » dans un fichier Excel, dans non importe quelle colonne mais sur la ligne 1 (B1, C1, D1, X1). Et aussi j’ai besoin copier et coller tous les valeurs depuis la ligne 2 jusqu’à la dernière valeur.
Le code que j’ai déjà écrit est le suivant:


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim u as Integer
for u = 1 to 60
windows("CATALOGUE.XLS").activateprevious
sheets("amd").select
if range(cells(1,u)) = "Dia18" or "dia10" then
range(cells(2,u)).select
selection.copy
windows("CATALOGUE.XLS").activate
sheets("CP ou EM").select
range("m" & range("m" & rows.count).end(xlup).row +1).pastespecial paste:=xlpastevalues, operations:=xlnone, skipblanks_
:=true, transponse:=false
end if
next u
Quand je lance la macro, il s'arrêt et me montre le suivante message:

Erreur d'exécution '10044:
La méthode 'Range' de l'objet '_Global' a échoué

Merci beaucoup