Écrire dans une cellule d'une autre feuille sous condition

@ThauTheme : Plutôt que d'utiliser OBJECT .. utilises directement WORKSHEET

Dim maFeuille As Worksheet
Set maFeuille = Sheets("Feuil1")

Pas d'accord sur le plutôt ! D'ailleurs on retrouve dans les macros événementielles du composant ThisWorkbook :

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)

Non pas des Worksheet mais des Object...
Les deux fonctionnent. Et si ça peut faire plaisir qui Jordane qui semble aimer en rajouter juste se faire mousser tu peux très bien utiliser Worksheet...

Ho merci grand maître Jordane de m'apprendre ce qu'est l'autocomplétion !

En ce point tu as raison, avec Object ça ne marche pas.
Mais j'ai lu sur un autre forum un débat passionnant sur l'utilisation de Object comparée à Sheet ou Worksheet et j'ai finalement opté pour utiliser Object ( si je retrouve le lien je le rajouterai ici).

Ce que je trouve intéressant que pour quelqu'un qui aime les choses bien faites tu viennes dire :

Il suffit d'indiquer la Feuille où tu souhaites écrire devant ton RANGE...

If CheckBox_journal.Value = True Then
        Sheets("Nom_de_la_feuille").Cells(TOTO, 8) = "X"
End IF

C'est aussi pour cela que j'ai dit que c'était surtout pour ce faire mousser car je ne comprends pas les personnes qui n'apportent rien de plus à une réponse sinon des critiques envers la réponse elle-même mais rien de constructif.

Que Worksheet permette l'autocomplétion c'est vrai je l'admet mais qu'il soit préférable de l'utiliser plutôt que Object je n'en suis pas convaincu... Quand à l'utilisation d'une variable pour désigner un onglet je trouve cela plutôt mieux structuré que de répéter chaque fois Sheets("Non_de_ta_feuille").

Mais comme on dit mon bon Jordanne, les coups et les douleurs hein...