XL 2016 Remplir Tableaux

[KTM]

Bonsoir Chers tous
Je voudrais une façon plus esthétique d"écrire mon code ci dessous. Merci

With ActiveSheet
    .Range("B1") = "CODE_PATIENT"
    .Range("C1") = "MOIS"
    .Range("D1") = "DATE VISITE"
    .Range("E1") = "PROTOCOLE"
    .Range("F1") = "NOUVEAU"
    .Range("G1") = "LIGNE"
    .Range("H1") = "AGE"
    .Range("I1") = "C_AGE"
    .Range("J1") = "SEXE"
    .Range("K1") = "DOTATION"
    .Range("L1") = "CTX"
    .Range("M1") = "STATUT"
    .Range("N1") = "ECHEANCE"
End With

 

[Dranreb]

Bonsoir.
Plus esthétique, je ne sais pas, mais 13 fois plus rapide :

ActiveSheet.[B1:N1].Value = Array("CODE_PATIENT", "MOIS", "DATE VISITE", "PROTOCOLE", _
    "NOUVEAU", "LIGNE", "AGE", "C_AGE", "SEXE", "DOTATION", "CTX", "STATUT", "ECHEANCE")

 

[KTM]

Bonsoir.
Plus esthétique, je ne sais pas, mais 13 fois plus rapide :

ActiveSheet.[B1:N1].Value = Array("CODE_PATIENT", "MOIS", "DATE VISITE", "PROTOCOLE", _
    "NOUVEAU", "LIGNE", "AGE", "C_AGE", "SEXE", "DOTATION", "CTX", "STATUT", "ECHEANCE")

merci

 

[job75]

Bonjour Bernard, KTM,

Plus esthétique :

[B1:N1] = [{"CODE_PATIENT","MOIS","DATE VISITE","PROTOCOLE","NOUVEAU","LIGNE","AGE","C_AGE","SEXE","DOTATION","CTX","STATUT","ECHEANCE"}]

A+

 

[job75]

Une autre très esthétique :

[B1:N1] = Split("CODE_PATIENT|MOIS|DATE VISITE|PROTOCOLE|NOUVEAU|LIGNE|AGE|C_AGE|SEXE|DOTATION|CTX|STATUT|ECHEANCE", "|")

 

[KTM]

Une autre très esthétique :

[B1:N1] = Split("CODE_PATIENT|MOIS|DATE VISITE|PROTOCOLE|NOUVEAU|LIGNE|AGE|C_AGE|SEXE|DOTATION|CTX|STATUT|ECHEANCE", "|")

merci Prof