Indicage d'une colonne par un nom

Bonjour,

Je vois ce post avec 9 ans de retard, mais j'essaie quand même :-)

J'ai essayé ton code et il fonctionne très bien. Cependant avoir l'info sur un msgbox ne m'intéresse pas. Ce que je voudrais c'est que dès qu'il a trouvé mon "titre" via la boucle, il sélectionne toute la colonne afin que je puisse la renommer ?

dim colonne, ligne as variant

ligne = 1
colonne = 1
do while cells (ligne, colonne) <> "titre" ' tant que la cellule située en ligne 2 et colonne 1 est différent de titre

colonne = colonne +1 'on ajoute 1 à colonne pour passer à la colonne suivante
loop

a=magbox("La colonne où se trouve titre est " & colonne)

Je vous remercie pour votre aide

Cordialement

Sub MaMacroAMoi()
Dim intCol As Integer, intDrCol As Integer, byLig As Byte
Dim tabNomsCol(), intIndic As Integer, intColcolle As Integer

'---------- PROCÉDURE DE NOMMAGE DES COLONNES-----------
'Le numéro de la ligne contenant les titres :
byLig = 2 'A ADAPTER!!!!
'Le numéro de la dernière colonne dont la ligne "byLig" est non-vide :
intDrCol = Cells(byLig, Cells.Columns.Count).End(xlToLeft).Column
'Boucle de la 1ère colonne (Colonne A) à la dernière (calculée ci-dessus)
For intCol = 1 To intDrCol
    'renomme les colonnes
    ActiveWorkbook.Names.Add Name:=Cells(byLig, intCol).Value, RefersTo:="=" & ActiveSheet.Name & "!" & Columns(intCol).Address
Next intCol
'---------------FIN NOMMAGE COLONNES-----------------------

'--------------DÉFINITION DES COLONNES A COPIER------------
'A ADAPTER en plaçant les noms des entêtes.........
tabNomsCol = Array("NOM", "Prénom", "Adresse", "Téléphone", "Ville", "CodePostal", "Mail")

'--------------COPIE-COLLE ---------------------------------
'A partir de qu'elle colonne coller les données :
intColcolle = 2 'A ADAPTER ici on colle à partir de la colonne B

For intIndic = 0 To UBound(tabNomsCol)
    Range(tabNomsCol(intIndic)).Copy Sheets("Feuil2").Cells(1, intColcolle)
    intColcolle = intColcolle + 1
Next intIndic
End Sub

Function ValideNom(ByVal Nom As String)
Nom = Replace(Nom, "°", "")
Nom = Replace(Nom, "'", "")
Nom = Replace(Nom, " ", "")
Nom = Replace(Nom, "/", "")
Nom = Replace(Nom, "", "")
Nom = Replace(Nom, ":", "")
Nom = Replace(Nom, "*", "")
Nom = Replace(Nom, "?", "")
Nom = Replace(Nom, "|", "")
Nom = Replace(Nom, "<", "")
Nom = Replace(Nom, ">", "")
ValideNom = Nom
End Function

Sub MaMacroAMoi()
Dim intCol As Integer, intDrCol As Integer, byLig As Byte
Dim tabNomsCol(), intIndic As Integer, intColcolle As Integer
Dim shFeuilAcopier As Worksheet, shFeuilOuColler As Worksheet

'On définit la feuille contenant les données à copier
Set shFeuilAcopier = Worksheets("Feuil1") '*********A ADAPTER********
'On définit la feuille ou coller les données
Set shFeuilOuColler = Workbooks("Blabla.xls").Worksheets("Machin") '*********A ADAPTER******** Nécessite que le classeur blabla soit ouvert!

With shFeuilAcopier 'On travaille Avec la feuille à copier

    '---------- PROCÉDURE DE NOMMAGE DES COLONNES-----------
    
    'Le numéro de la ligne contenant les titres :
    byLig = 2 '*********A ADAPTER********
    
    'Le numéro de la dernière colonne dont la ligne "byLig" est non-vide :
        'Note : ne pas oublier le point devant Cells car il se rattache à shFeuilAcopier
    intDrCol = .Cells(byLig, Cells.Columns.Count).End(xlToLeft).Column

    'Boucle de la 1ère colonne (Colonne A) à la dernière (calculée ci-dessus)
    For intCol = 1 To intDrCol
        'Si la cellule en ligne 2 n'est pas vide :
        If .Cells(byLig, intCol) <> "" Then
            'Nomme les colonnes (Définir un nom)
            ActiveWorkbook.Names.Add Name:=ValideNom(.Cells(byLig, intCol).Value), _
            RefersTo:="=" & shFeuilAcopier.Name & "!" & .Columns(intCol).Address
        End If
    Next intCol
    
    '---------------FIN NOMMAGE COLONNES-----------------------

    '--------------DÉFINITION DES COLONNES A COPIER------------
    tabNomsCol = Array("NOM", "Prénom", "Adresse", "Téléphone", "Ville", "Code Postal", "Mail") '*********A ADAPTER********
    '--------------FIN DEFINITION------------------------------
    
    '--------------COPIE-COLLE --------------------------------
    
    'A partir de qu'elle colonne coller les données :
    intColcolle = 2 '*********A ADAPTER******** ici on colle à partir de la colonne B

    For intIndic = 0 To UBound(tabNomsCol)
        .Range(ValideNom(tabNomsCol(intIndic))).Copy shFeuilOuColler.Cells(1, intColcolle)
        intColcolle = intColcolle + 1
    Next intIndic
    
    '---------------FIN COPIE-COLLE----------------------------
    
    '-------------SUPPRESSION DES NOMS-------------------------
    For intCol = 1 To intDrCol
        'Si la cellule en ligne 2 n'est pas vide :
        If .Cells(byLig, intCol) <> "" Then
            .Range(ValideNom(.Cells(byLig, intCol).Value)).Name.Delete
        End If
    Next
    '-------------FIN SUPPRESSION NOMS-------------------------
    
End With
End Sub