Sélection d'une colonne dans requete VBA

    Dim xlApp As Object
    Dim NumAssembl As Long
    Dim NumPiece As Long
    Dim NumLigne As Long
    Dim c As Range
     
    Set xlApp = CreateObject("Excel.Application")
    ' J'ai mis un classeur (classeur1.xls) contenant une feuille (Feuil1)
    ' dans un dossier de mon choix (c:\excelpb), à toi d'adapter
    xlApp.Workbooks.Open ("c:\excelpb\classeur1.xls")
    xlApp.Workbooks("classeur1.xls").Sheets("Feuil1").Activate
    
    NumPiece = InputBox("Entrez un n° de pièce", "Entrée")
    'Range("I:I") = colonne 9
    Set c = Sheets("Feuil1").Range("I:I").Find(NumPiece, , xlValues, xlWhole, , , False)
    If Not c Is Nothing Then
        NumLigne = c.Row
        ' On lit ce qui se trouve dans la colonne 12
        NumAssembl = Cells(NumLigne, 12)
        MsgBox "N° d'assemblage :" & NumAssembl, vbOKOnly, "Sortie"
    Else
        MsgBox "N° de pièce non trouvé."
    End If
    Set c = Nothing