Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Dim aListe() As String ReDim aListe(0 To 10) aListe(9) = "Coucou" Call TestTableau(aListe) MsgBox(aListe(9) & aListe(15)) End Sub Private Sub TestTableau(ByRef monTableau() As String) ReDim Preserve monTableau(0 To 20) monTableau(15) = " Codes-Sources" End Sub