Sub Création_Liste_Points()
Dim vArr() As String, Bloc, NB_LC, i&, j&
Bloc = InputBox("Nom Bloc?", "Bloc", 165702): NB_LC = InputBox("Ligne-Colonne?", "Bloc", "4-4")
NL = CLng(Split(NB_LC, "-")(0) * 1): NC = CLng(Split(NB_LC, "-")(1) * 1)
ReDim vArr(1 To NL, 1 To NC) As String
For i = LBound(vArr) To UBound(vArr)
For j = LBound(vArr, 2) To UBound(vArr, 2): vArr(i, j) = CStr(i) & "_" & CStr(j): Next j
Next i
k = 2
For i = LBound(vArr) To UBound(vArr)
For j = LBound(vArr, 2) To UBound(vArr, 2): Cells(k, "K") = Bloc & "_" & CStr(vArr(i, j)): k = k + 1
Next j
Next i
End Sub