Bonjour Fred , merci pour ta réponse!
En effet, c'était ce qui posait problem à Excel... Toutefois je ne comprends pas parce que lorsque l'on fait cette commande à la main il l'exécute sans soucis...
En tout cas, j'ai maintenant un second problem, c'est les cellules vides.
Voici la macro en question:
''On ajoute les colonnes identiques les unes en dessous des autres
For i = iSheetStart To iSheetStop
If Sheets(i).Name <> "DATA Hybrides.xlsx" Then
Workbooks("Mise en commun des colonnes work").Sheets(i).Activate
iLignFin = Cells(1, 1).CurrentRegion.Rows.Count
iColFin = Cells(1, 1).CurrentRegion.Columns.Count
For l = 1 To iColRef
For j = 1 To iColFin
If Workbooks("Mise en commun des colonnes work").Sheets(i).Cells(1, j).Value = Workbooks("Mise en commun des colonnes work").Sheets("DATA Hybrides.xlsx").Cells(1, l).Value Then
''On comble les cellules vides pour faciliter la sélection de la colonne souhaitée
For x = 2 To iLignFin
If Workbooks("Mise en commun des colonnes work").Sheets(i).Cells(x, j).Value = "" Then
Workbooks("Mise en commun des colonnes work").Sheets(i).Cells(x, j).Value = "'"
End If
Next
''Copier/coller de la colonne souhaitée
$$ Workbooks("Mise en commun des colonnes work").Sheets(i).Range(Cells(2, j), Cells(2, j).End(xlDown)).Select $$
Selection.Copy
Workbooks("Mise en commun des colonnes work").Sheets("temp").Activate
Cells(1, l).Select
y = Cells(1, l).End(xlDown).Row + 1
Cells(y, l).PasteSpecial Paste:=xlPasteValues
''On rétabli les cellules vides
For x = y To y + iLignFin
If Workbooks("Mise en commun des colonnes work").Sheets(i).Cells(x, j).Value = "'"Then
Workbooks("Mise en commun des colonnes work").Sheets(i).Cells(x, j).Value = ""
End If
Next
End If
Next
Next
End If
Next
MsgBox "Done"
End Sub
La ligne qui pose souci es la ligne entre $$ $$. L'erreur est l'erreur 1004: erreur définie par l'application ou par l'objet.
Le bug a lieu pour les valeurs suivantes: i = 5 ; j = 6
Qqun aurait-il une idée d'où celà peut provenir? Parce que j'ai eu beau combler les cellules vides de ma plage, le message d'erreur est le meme.
Je ne peux pas vous partager les données car elle sont confidentielles. Toutefois, je peux vous partager une capture d'écran des données de la feuille i = 5 pour que vous puissiez vous faire une idée. (Voir pièce jointe).
Merci pour votre aide.
Mateo.