Résultat sur une autre feuille

Bonjour à toutes et tous,

j'ai un code qui fonctionne bien mais je souhaites afficher les résultats sur une autre feuille.

Quel code écrire.

Voir feuille exemple ci-jointe.

Merci à tous ceux et celles qui pourront m'aider encor une fois

Amicalement

Pierrot

 Sub NombredeCellules_De_Couleurs_B()

    Dim Cellule As Range

    ' Sheets("Feuil1").Select

    For Each Cellule In Range("B2:B40")
        Select Case Cellule.Interior.ColorIndex

           Case Is = 46: Range("C2") = Range("C2") + 1 'Orange

         End Select

         ActiveCell.Range("A1").Select
   Next

    End Sub

Bonjour

Essaie ce code

Sub NombredeCellules_De_Couleurs_B()

Dim Cellule As Range
    For Each Cellule In Range("B2:B40")
        Select Case Cellule.Interior.ColorIndex
           Case Is = 46: Sheets("Feuil2").Range("C2") = Sheets("Feuil2").Range("C2") + 1 'Orange
         End Select
         ActiveCell.Range("A1").Select
   Next
End Sub

Bye !

Bonjour gmb

merci pour ta réponse si rapide et qui plus est, fonctionne

Si j'ai bien compris le fonctionnement, la macro se déclenche

uniquement depuis la feuille source, ce qui est parfait,

Je vais pouvoir activer cette macro en même temps qu'une autre avec la fonction Call

j'ai trente-cinq colonnes à transférer pour six infirmières tous les mois

Un tout grand merci et bon Week-end à toi

Amitiés

Pierrot