Désignation d'un range sous la forme .Cells(

Sub ee()
Dim Col As Byte
Dim Plg As Range
With Sheets("Feuil1")
    Col = 5 'pour l'exemple
    Set Plg = .Range(.Cells(3, Col), .Cells(Rows.Count, Col + 2).End(xlUp).Offset(, -2))
    Plg.Select 'pour la démo
End With
End Sub

    With Sheets("Feuil2")
        Col = 5 'pour l'exemple
        With .Range(.Cells(3, Col), .Cells(.Rows.Count, Col + 2).End(xlUp).Offset(0, -2))
            '.../...
        End With
    End With

Sub Maxi_et_Mini1()
Dim LesColonnes(), Col&, k&, MaxVal#, MinVal#
    LesColonnes = Array("Prix du litre", "Conso Mensuelle", "Conso Moyenne", "Coût gazole au km")
    With Sheets("Feuil2")
        'Boucle sur les colonnes E,G,I et J
        For k = LBound(LesColonnes) To UBound(LesColonnes)
            Col = .Rows("2:2").Find(What:=LesColonnes(k), LookAt:=xlWhole).Column
            
            'La solution de bhbh et Roger2327
            Set Plg = .Range(.Cells(3, Col), .Cells(Rows.Count, Col + 2).End(xlUp).Offset(, -2))
            Plg.Select
            
            'La solution initiale qui ne convient pas
            Set Plg1 = .Range(.Cells(3, Col), .Cells(.Rows.Count, Col).End(xlUp))
            Plg1.Select
            MsgBox "Solution bhbh ou Roger2327" & vbCrLf & Plg.Address & vbCrLf & _
            vbCrLf & "Solution initiale ne convenant pas" & vbCrLf & Plg1.Address
            'MsgBox Plg1.Address
            ''''Blablabla
        Next k
    End With
End Sub

Sub Maxi_et_Mini1()
Dim LesColonnes(), Col&, Lig&, k&, MaxVal#, MinVal#
    LesColonnes = Array("Prix du litre", "Conso Mensuelle", "Conso Moyenne", "Coût gazole au km")
    With Sheets("Feuil2")
        Col = .Rows("2:2").Find(What:=LesColonnes(1), LookAt:=xlWhole).Column
        Lig = .Cells(Rows.Count, Col).End(xlUp).Row
        For k = LBound(LesColonnes) To UBound(LesColonnes)
            Col = .Rows("2:2").Find(What:=LesColonnes(k), LookAt:=xlWhole).Column
            With .Range(.Cells(3, Col), .Cells(Lig, Col))
                MaxVal = Application.Max(.Cells)
                MinVal = Application.Min(.Cells)
                .Interior.ColorIndex = xlNone
                .Find(What:=MaxVal, LookIn:=xlFormulas).Interior.ColorIndex = 45
                .Find(What:=MinVal).Interior.ColorIndex = 43
            End With
        Next k
    End With
End Sub

.../...
If Col = 5 Or Col = 11 Then
  MaxVal1 = Application.Large(.Cells, 2)
  .Find(What:=MaxVal1).Interior.ColorIndex = 19
End If
If Col = 9 Then
  MinVal1 = Application.Small(.Cells, 2)
  .Find(What:=MinVal1).Interior.ColorIndex = 15
End If