sélection vers une autre feuille

Bonjour, et bonne année 2003

Sub SelectionPourPayement()

' une colonne, dans laquelle je sélectionne différentes valeurs
', je voudrais par macro sélectionner ces mêmes valeurs situées dans une autre feuille

For Each cel In Selection
Sheets("table et bar IN").Activate
Range("D" & cel.Value + 1).Select
Next
' a chaque fois, la boucle se termine avec une seule sélection( la derniere)

End Sub

Merci d'avance,
Claudy