Prob action macro

Bonjour,

Je rencontre un problème dans la macro suivante, en effet l'action ne porte que sur la feuille lundi avec qu'il faudrait qu'elle porte sur toutes les feuilles.

Merci d'avance,



Sub copie()

Sheets(Array("lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi")).Select
Sheets("lundi").Activate
Dim dest As Range 'déclare la variable dest (DESTination)
Dim tv(5) 'déclare le tableau de variable tv (Tableau de Variables)

tv(0) = Range("B6").Value 'définit la variable tv(0)
tv(1) = Range("C6").Value 'définit la variable tv(1)
tv(2) = Range("D6").Value 'définit la variable tv(2)
tv(3) = Range("E6").Value 'définit la variable tv(3)
tv(4) = Range("F6").Value 'définit la variable tv(4)
tv(5) = Range("G6").Value 'définit la variable tv(5)

If Range("A6").Value = "" Then 'condition : si A1 est vide
Set dest = Range("A6") 'définit la variable dest (A1)
Else 'sinon
Set dest = Range("A27").End(xlUp).Offset(1, 0) 'définit la variable dest (la première ligne rencontrée)
End If 'fon de la condition


dest.Value = Date - 1 'place la date dans la colonne A

'place les données dans la colonne B
For x = 0 To 5 'boucle sur les 6 valeurs
dest.Offset(0, x + 1) = tv(x) 'place la valeur
Next x 'prochaine valeur

Range("A1").Select 'sélectionne la cellule A1 (enlève le focus du bouton)

End Sub