Sub copy()
Dim i As Long
For i = 2 To 4
Sheets("feuil1").Range("A5:A1000").copy Sheets("feuil" & i).Range("A5")
Application.CutCopyMode = False
Next i
End Sub
Ton code est Nickel sauf que moi je me suis trompé en faite les feuil ont un nom c'est à dire feuil1 "Noms" feuil2"transpose_lien"feuil3"transpose ville " feuil4"nom_pays"
Sinon on peut aussi utiliser ce qu'Excel a prévu pour cela
(Donc sans boucle, sans copier/coller )
VB:
Sub a()
Dim feuilles
feuilles = Array("Feuil1", "Feuil2", "Feuil3", "Feuil4")
'ici mettre le nom des vraies feuilles
Sheets(feuilles).FillAcrossSheets Worksheets("Feuil1").Range("A5:A100")
End Sub
Sub a()
Dim feuilles
feuilles = Array("transpose_lien", "transpose_ville")
'ici mettre le nom des vraies feuilles
Sheets(feuilles).FillAcrossSheets Worksheets("path").Range("A5:A100")
End Sub
Il manque path dans le tableau feuilles
(c'est pourtant ce que montrait mon exemple : Feuil1 était dans le tableau feuilles)
PS: *Les noms du message#3 étaient
Ton code est Nickel sauf que moi je me suis trompé en faite les feuil ont un nom c'est à dire feuil1 "Noms" feuil2"transpose_lien"feuil3"transpose ville " feuil4"nom_pays"
Sub b()
Dim feuilles
feuilles = Array("Noms", "transpose_lien", "transpose ville ", "nom_pays")
'ici mettre le nom des vraies feuilles
Sheets(feuilles).FillAcrossSheets Worksheets("Noms").Range("A5:A100")
End Sub