Indicación de una columna por un nombre

Hola,

Veo esta publicación con 9 años de retraso, pero aun así lo intento :-)

Probé tu código y funciona muy bien. Sin embargo, obtener la info en un msgbox no me interesa. Lo que quiero es que en cuanto encuentre mi "título" mediante el bucle, seleccione toda la columna para que pueda renombrarla?

dim columna, linea as variant

linea = 1
columna = 1
do while cells (linea, columna) <> "titre" ' mientras la celda en la fila 2 y columna 1 es diferente de título

columna = columna +1 'sumar 1 a la columna para pasar a la columna siguiente
loop

a=magbox("La columna donde se encuentra título es " & columna)

Les agradezco su ayuda

Atentamente

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

'---------- PROCEDIMIENTO DE NOMBRADO DE COLUMNAS -----------
'El número de la fila que contiene los títulos :
byLig = 2 'A ADAPTAR!!!!
'El número de la última columna cuya fila "byLig" no está vacía :
intDrCol = Cells(byLig, Cells.Columns.Count).End(xlToLeft).Column
'Bucle desde la primera columna (Columna A) hasta la última (calculada arriba)
For intCol = 1 To intDrCol
 'renombra las columnas
 ActiveWorkbook.Names.Add Name:=Cells(byLig, intCol).Value, RefersTo:="=" & ActiveSheet.Name & "! " & Columns(intCol).Address
Next intCol
'---------------FIN NOMBRADO DE COLUMNAS-----------------------

'--------------DEFINICIÓN DE LAS COLUMNAS A COPIAR------------
'A ADAPTAR colocando los nombres de encabezados.........
tabNomsCol = Array("NOM", "Prénom", "Adresse", "Téléphone", "Ville", "CodePostal", "Mail")

'--------------COPIAR-PEGAR ---------------------------------
'A partir de qué columna pegar los datos :
intColcolle = 2 'A ADAPTAR aquí pegamos a partir de la columna 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