Microsoft 365 A partir d'une autre feuille : écrire dans une cellule d'une feuille sans l'ouvrir - ni la sélectionner

[Usine à gaz]

Bonjour à toutes et à tous,

Je me permets de vous solliciter à nouveau pour un code que je pense "pas trop bon".
J'ai fait des recherches un peu partout mais je n'ai pas trouvé.

J'ai ce code dans une macro :

sub copie()
    With Sheets("RecapFact")
    .Activate
    ActiveSheet.Cells(Rows.Count, "i").End(xlUp)(2).Value = Range("x9") & " " & Range("AD4") & Format(Date, "yyyymmdd") & " " & "Pack Rest " & Range("N18") & " RdV - en cours "
    End With
end sub

je suis par exemple sur une feuille "facture"
et je souhaite écrire dans la feuille "RecapFact",

Le code fonctionne mais active la feuille "RecapFact" alors que je souhaite rester sur la feuille "facture".

c'est certainement à cause : ".Activate"
Mais je ne sais pas faire autrement 😡

Auriez-vous le bon code ?
Avec mes remerciements,
amicalement,
lionel,

 

[chris]

Bonjour

Sub copie()
    With Sheets("facture")
        Worksheets("RecapFact").Cells(Rows.Count, 1).End(xlUp)(2).Value = .Range("x9") & " " & .Range("AD4") & Format(Date, "yyyymmdd") & " " & "Pack Rest " & .Range("N18") & " RdV - en cours "
    End With
End Sub

 

[Usine à gaz]

Bonjour chris,

Merci pour le code.
Apparemment, je l'avais dans le désordre lol 🙂
lionel,

 

[Usine à gaz]

Re-chris,
Nickel top Merci 🙂

 

[chris]

RE

J'ai simplifié 2 minutes après mon post que j'ai édité mais tu as peut-être récupéré entre les 2 😉

 

[Usine à gaz]

Re :
J'ai pris le code actuel de ton post 🙂