Sub Remplissage_02()
Dim i As Integer, j As Integer, k As Integer
Dim s As String
For i = 1 To 38
For j = 1 To 10
s = ""
For k = 1 To 50
s = s & ",Feuil1!R" & (6 + j - 1 + 18 * (i - 1)) & "C" & (15 + 3 * (k - 1))
Next k
s = Mid(s, 2, Len(s) - 1)
ActiveWorkbook.Names.Add Name:="PronoDom" & i & "_" & j, _
RefersToR1C1:="=" & s
Next j
Next i
End Sub
Private Sub DeleteNames()
Dim i As Long, NbNoms As Long
NbNoms = ActiveWorkbook.Names.Count
For i = NbNoms To 1 Step -1
ActiveWorkbook.Names(i).Delete
Next i
End Sub