ericm1960

Sub nom()

Dim ws, wr As Workbook
Dim Dlign1 As Integer
Set ws = ThisWorkbook
Set wr = Workbooks("Indicateurs_redressement_national")
Dim Plage_CI_G As Range

'Déterminer la plage de la feuille CI G
    wr.Activate
    Sheets("Taux de redres CI G S3C").Select
    Range("B5").Select
    Dlign1 = Cells(Rows.Count, 1).End(xlUp).Row

    ws.Activate
    Set Plage_CI_G = Workbooks("Indicateurs_redressement_national").Sheets("Taux de redres CI G S3C").Range("B6", Range("O" & Dlign1))


End Sub

Sub GetNom()
  Dim plg As Range, dlg&
  With Workbooks("Indicateurs_redressement_national").Worksheets("Taux de redres CI G S3C")
    dlg = .Cells(Rows.Count, 1).End(3).Row: Set plg = .Range("B6:O" & dlg)
  End With
End Sub