recherche un raccourci

[David]

Salut le forum

J'ai fait un tableau avec Excel qui s'alimente à l'aide de 12 autres pages qui représente chaque une un mois je rentre des données dans ce 12 pages
et sur la première page ("sommaire")j'y fait apparaître les donnée des 12 autres a l'aide de cette formule


Range("c5") = Sheets(ListBox1.Text).Range("c5")
Range("c6") = Sheets(ListBox1.Text).Range("c6")
Range("c7") = Sheets(ListBox1.Text).Range("c7")
Range("c8") = Sheets(ListBox1.Text).Range("c8")
Range("c9") = Sheets(ListBox1.Text).Range("c9")
Range("c10") = Sheets(ListBox1.Text).Range("c10")
Range("c11") = Sheets(ListBox1.Text).Range("c11")
Range("c12") = Sheets(ListBox1.Text).Range("c12")
Range("c13") = Sheets(ListBox1.Text).Range("c13")
Range("c14") = Sheets(ListBox1.Text).Range("c14")
Range("c15") = Sheets(ListBox1.Text).Range("c15")
Range("c16") = Sheets(ListBox1.Text).Range("c16")

Range("d5") = Sheets(ListBox1.Text).Range("d5")
Range("d6") = Sheets(ListBox1.Text).Range("d6")
Range("d7") = Sheets(ListBox1.Text).Range("d7")
Range("d8") = Sheets(ListBox1.Text).Range("d8")
Range("d9") = Sheets(ListBox1.Text).Range("d9")
Range("d10") = Sheets(ListBox1.Text).Range("d10")
Range("d11") = Sheets(ListBox1.Text).Range("d11")
Range("d12") = Sheets(ListBox1.Text).Range("d12")
Range("d13") = Sheets(ListBox1.Text).Range("d13")
Range("d14") = Sheets(ListBox1.Text).Range("d14")
Range("d15") = Sheets(ListBox1.Text).Range("d15")
Range("d16") = Sheets(ListBox1.Text).Range("d16")

Qui fonction très bien mais le problème il y a 150 ligne à faire
et j'ai peur que sa soit long à charger

Je mes demande si un formule plus court existe

si vous voulais d'autre information pas de problème

merci d'avance

@+

 

[Jean-Marie]

Bonjour David

Range("c5:d16").Value = Sheets("Feuil2").Range("c5:d16").Value

@+Jean-Marie

 

[David]

Bonjour Jean Marie

merci beaucoup

@+ david