Sub Plage6()
'Sélection du fichier
Fichier = Application.GetOpenFilename("Fichier XLS (*.xls),*.xls")
Workbooks.Open Filename:=Fichier
' création plage dynamique
ActiveWorkbook.Names.Add Name:="Plage5", RefersToR1C1:= _
"=OFFSET([Fichier]Feuil1!R1C13,,,COUNTA([Fichier]Feuil1!C6),10)"
End Sub
Sub Rech6()
Range("O1").Select
ActiveCell.FormulaR1C1 = "Pointage"
Range("O2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-9],Plage5,10,FALSE)"
Range("O2").Select
Selection.AutoFill Destination:=Range("O2:O" & Range("C65536").End(xlUp).Row), Type:=xlFillDefault
'enleve les formules
Range("O2:O" & Range("C65536").End(xlUp).Row).Value = Range("O2:O" & Range("C65536").End(xlUp).Row).Value
Range("O1").Select
End Sub
Sub Pointage6()
Call Plage6
Call Rech6
End Sub