Function GénérationPlagesNommées(NomPlagesNommées As String, NomFeuilles As String, PlageDonnées As String)
Range(PlageDonnées).Select
Range("A1").Activate
ActiveWorkbook.Names.Add _
Name:=NomPlagesNommées, RefersTo:="=" & NomFeuilles & "!" & PlageDonnées
End Function