[FONT=monospace]Sub PlageCAT6()
Dim Fichier As String, NomFic As String
Fichier = Application.GetOpenFilename("Fichier XLS (*.xls),*.xls")
Workbooks.Open Filename:=Fichier
NomFic = Mid(Fichier, InStrRev(Fichier, "\") + 1)
' création plage dynamique
ActiveWorkbook.Names.Add Name:="MaPlage1", RefersToR1C1:= _
"=OFFSET([" & NomFic & "]Feuil1!R1C13,,,COUNTA([" & NomFic & "]Feuil1!C6),10)"
End Sub