VBA Recherche de mots dans le fichier et impression de la listview

For k = 1 To 3
        Cells(1, k) = UCase(Cells(1, k))
    Next k
    Set Rg = Range(Cells(1, 1), Cells(g, 3))
    With Rg
        .WrapText = False
        .ShrinkToFit = False
    End With
    With ActiveSheet
        .Columns.AutoFit
        .Columns(1).ColumnWidth = WorksheetFunction.Min(45, .Columns(1).ColumnWidth)
        .Columns(2).ColumnWidth = WorksheetFunction.Min(36, .Columns(2).ColumnWidth)
        .Columns(3).ColumnWidth = WorksheetFunction.Min(36, .Columns(3).ColumnWidth)
        .PageSetup.Orientation = xlLandscape
    End With
    With Rg
        With .Font
            .Name = "Calibri"
            .Size = 11
        End With
        With .Borders
            .LineStyle = xlContinuous
            .Weight = xlThin
        End With
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .ShrinkToFit = True
    End With
    Set Rg = Range(Cells(1, 1), Cells(1, 3))
    With Rg
        .Font.Bold = True
        .Borders.Weight = xlMedium
    End With
    ActiveSheet.PrintOut

, Rg as Range à la ligne Dim