Corrigé 5.9 Agrandir un tableau dynamique en préservant les valeurs initiales
Sub EX9()
Dim intTaille1 As Integer
Dim intTaille2 As Integer
intTaille1 = Application.InputBox _
(prompt:="Première taille du tableau", _
Type:=1, Title:=" Nombre entier positif < 32 767")
ReDim dblTabDynamique(1 To intTaille1)
...