Call AddPlage("DepBox", NbDep, "myFeuill2", RowOri, ColOri , 1, NbUser - 1)
Call AddPlage("Dep", NbDep, "myFeuill1", RowOri , ColOri, 1, NbUser - 1)
Sub AddPlage(ByVal rootName As String, ByVal n As Integer, ByVal feuill As String, _
ByVal initRow As Integer, ByVal initCol As Integer, _
ByVal nRow As Integer, ByVal nCol As Integer)
Dim Plage1 As Range
Dim UnePlage As Range
Set Plage1 = Sheets(feuill).Cells(initRow, initCol)
Set UnePlage = Range(Plage1, Plage1.Offset(nRow - 1, nCol))
ActiveWorkbook.Names.Add Name:=rootName & n, RefersTo:=feuill & "!" & UnePlage.Address
End Sub