Sub Plage_DPGF()
'Selection de la Plage du DPGF pour lui donner un nom
'Permet de remplir Suivi Chantier
Dim Plage As Range
Set Plage = Application.InputBox(prompt:="Selectionner Plage DP", Type:=8)
Plage.Name = "Matrice_DP"
Plage.Rows(0).Name = "Titre"
End Sub