coller resultat boucle sur autre feuille

[carlos]

bonsoir
j'ai ecris ce code qui regroupe toutes les valeurs de 1 jusqu'a 7 ensemble sur la meme feuille, je ne sais pas comment faire pour regrouper la meme chose sur une autre feuille nommée regrouper .
j'aimerais que le resultat soit directement orienté vers la feuille regrouper.

Sub RP()

Range('e5:k10').ClearContents
For n = 1 To 7
For i = 0 To 35
If Cells(5 + i, 3) = n Then Cells(Cells(10, 4 + n).End(xlUp).Row + 1, 4 + n) = Cells(5 + i, 2)
Next i
Next n
End Sub

merci

 

[Hervé]

Bonjour

Sans avoir copié ton code, donc désolé si je fait dans la zopette nocturne :

If Cells(5 + i, 3) = n Then sheets('regrouper').Cells(Cells(10, 4 + n).End(xlUp).Row + 1, 4 + n) = Cells(5 + i, 2)

a plus

 

[carlos]

bonjour et merci pour ton aide