Sub nombis()
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
With wr.Sheets("Taux de redres CI G S3C")
Dlign1 = .Cells(.Rows.Count, 1).End(xlUp).Row
Set Plage_CI_G = .Range("B6", .Range("O" & Dlign1)) 'ca ne met pas de nom à la zone sélectionnée
'ca affecte juste la zone sélectionnée à une variable nommée Plage_CI_G
End With
With Plage_CI_G
.Name.Add Name:="Plage_CI_G", RefersToR1C1:=Plage_CI_G.Address
End With
'Et pour la RECHERCHEV :
Sheets("Analyse S3C contrôle").Select 'feuille se trouvant sur le classeur ws
Range("F18").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R[-13]C[-2],Plage_CI_G,5,FALSE)"
End Sub