Sub Definir_Nom()
Dim x$, n%, chemin$, fichier$
x = CStr(ThisWorkbook.Sheets("Data").[D15]) 'adaptable
On Error Resume Next
ThisWorkbook.Names("MaPlage").Delete 'RAZ
If x = "" Then Exit Sub
If Dir(x) = "" Then MsgBox "Fichier '" & x & "' introuvable !": Exit Sub
n = InStrRev(x, "\")
chemin = Left(x, n)
fichier = Mid(x, n + 1)
ThisWorkbook.Names.Add "MaPlage", "='" & chemin & "[" & fichier & "]verification'!$R$2:$AE$19"
End Sub