Excel 2003- remplacer les donnees d une ligne par d autres

Bonsoir,

Voilà je cherche a modifier une macro , je souhaite :

j'ai sur la ligne 1 des cellules avec des intitulés, je souhaite remplacer ces intitules par des autres plus parlant

F92KY F92PRG F92ARG F9TP

je souhaite avoir a la place :

Clé unique libelle libre Chemin

Je ne souhaite pas utiliser la fonction choisir qui me limite en nbre de choix

je souhaite modifier ce code :

Option Base 1
Function MAVAL(MACEL As Range)

t1 = Array("F910KY", "F910LIB", "F910CHEMIN", "F910TXT", "T910910MED", "T910910NAT", "K910TD4NATMEMO", "F910RICHE", "F910DTOPE")
t2 = Array("Clé unique F910", "libelle libre", "Chemin", "le memo", "média", "Nature", "Code nature de mémo", "Texte riche", "Date de saisie")
x = Application.Match(MACEL, t1, 0)
If Not IsError(x) Then MAVAL = t2(x)
End Function

Sub associe()
Dim rng As Range, c As Range

Set rng = Range("1:1" & Range("C65000").End(xlUp).Row)
For Each c In rng
    If c.Offset(1, 2) <> "" Then c = MAVAL(c.Offset(1, 2))
Next
End Sub

Merci de votre aide

Bonjour,

Merci d'éditer le titre du sujet de ta demande afin qu'il soit en rapport avec ta demande.

Amicalement

Bonsoir,

Je me suis mal exprimée!

j'ai sur la ligne 1 des cellules avec des intitulés, je souhaite remplacer ces intitules par des autres plus parlant en ligne 2

Je mets un fichier en exemple

Bonne soirée

Bonsoir

A voir

Bonsoir

Désolée je n'ai pas pu répondre avant

Merci pour ta réponse

Ce n'est pas tout à fait ça que je voualis car je souhaite utiliser la macro pour plusieurs fichiers donc je voulais placer le code dans mon fichier de macro personnelle

Bonne soirée