XL 2016 Récupérer nom colonne à partir de cellules

Sub Test()
Dim Ligne&, Rng As Range
Ligne = Application.Match(Sheets("GRAPH").[B1], Sheets("RECAP").[A:A], 0)
Set Rng = Sheets("RECAP").Cells(Ligne, 1).Offset(, 2).Resize(, 5)
vMAX = Application.Max(Rng)
vMIN = Application.Min(Rng)
MsgBox "Max: " & vMAX & Chr(13) & "Min: " & vMIN
End Sub

Sub valcol_min()
Dim r As Range
Dim s As Range
Dim Derlig As Integer
Dim i As Integer
Dim Line As Range

Dim cellule1 As String
Dim cellule As Range
Dim plage As Range
 

Derlig = Worksheets("RECAP").Columns("A:A").Find("*", Range("A1"), , , xlByRows, xlPrevious).Row

Lig = 0
Set r = Sheets("GRAPH").Range("B1")
Set s = Sheets("GRAPH").Range("B4")

With Worksheets("RECAP")

For i = 2 To Derlig
    If .Range("A" & i).Value = r.Value Then
        Set Line = .Rows(i).Find(What:=s, lookat:=xlWhole)
            If Not Line Is Nothing Then
                        
                Num = Line.Column
        Set plage = Line
            Do
                Set Line = .Rows(i).FindNext(Line)
                Set plage = Application.Union(plage, Line)
            Loop Until Line.Column = Num
            End If
        End If
    Next
End With
          
MsgBox plage.Address

End Sub

Sub Test_C()
Dim Ligne&, Rng As Range, col_MaX$, col_MiN$
Dim f As Worksheet: Set f = Sheets("RECAP")
With Application
    Ligne = .Match(Sheets("GRAPH").[B1], f.[A:A], 0)
    Set Rng = Sheets("RECAP").Cells(Ligne, 1).Offset(, 2).Resize(, 5)
    col_MaX = f.Cells(1, .Match(.Max(Rng), Rng, 0) + 2)
    col_MiN = f.Cells(1, .Match(.Min(Rng), Rng, 0) + 2)
End With
MsgBox "Max: " & col_MaX & Chr(13) & "Min: " & col_MiN, vbInformation, "Résultats"
End Sub

Sub valcol_min()
Dim r As Range
Dim s As Range
Dim Derlig As Integer
Dim i As Integer
Dim Line As Range
Dim res As String
Dim cel As Variant
Dim cellule1 As String
Dim cellule As Range
Dim plage As Range


Derlig = Worksheets("RECAP").Columns("A:A").Find("*", Range("A1"), , , xlByRows, xlPrevious).Row

Lig = 0
Set r = Sheets("GRAPH").Range("B1")
Set s = Sheets("GRAPH").Range("B4")

With Worksheets("RECAP")

For i = 2 To Derlig
    If .Range("A" & i).Value = r.Value Then
        Set Line = .Rows(i).Find(What:=s, lookat:=xlWhole)
            If Not Line Is Nothing Then
                       
                Num = Line.Column
        Set plage = Line
            Do
                Set Line = .Rows(i).FindNext(Line)
                Set plage = Application.Union(plage, Line)
            Loop Until Line.Column = Num
            End If
        End If
    Next
End With
res = ""
For Each cel In plage

res = res & Worksheets("RECAP").Cells(1, cel.Column) & Chr(10)

Next

Range("c4") = Left(res, Len(res) - 1)
End Sub

Sub Je_Ne_Suis_Qu_1_Macro(Optional De_Test_UNIQUEMENT_de_Test) 'Peut pas mieux dire ;-)
Dim vTest: Application.ScreenUpdating = False
Dim P As Range, P2 As Range: Set P = Range("A1:E15"): P = "=(ROW()*COLUMN())*100"
MsgBox "Max: " & Application.Max(P): MsgBox "Min: " & Application.Min(P)
Set P2 = Range("B2:B6")
MsgBox "Max: " & Application.Max(P2), , P2.Address(0, 0): MsgBox "Min: " & Application.Min(P2), , P2.Address(0, 0)
vTest = InputBox("Nombre cherché?", "Choix valeur", 1600)
Ligne = Application.Match(CLng(vTest), [B1:B15], 0)
MsgBox vTest & " trouvé!" & Chr(13) & "Ligne N°: " & Ligne & " | Adresse: " & Cells(Ligne, "B").Address(0, 0) _
, , "Colonne B"
[C1:C15] = [C1:C15].Value
Application.ScreenUpdating = True
[C1:C15].Sort Key1:=[C1], Order1:=xlAscending, Header:=xlNo
Ligne = Application.Match(CLng(vTest), [C1:C15], 1)
With Cells(Ligne, "C")
MsgBox .Address(0, 0) & "->" & .Value2, , [C1:C15].Address(0, 0)
End With
[C1:C15].Sort Key1:=[C1], Order1:=xlDescending, Header:=xlNo
Ligne = Application.Match(CLng(vTest), [C1:C15], -1)
With Cells(Ligne, "C")
MsgBox .Address(0, 0) & "->" & .Value2, , [C1:C15].Address(0, 0)
End With
End Sub