Sub Test()
Dim Nm As Name, Tablo() As String
ReDim Tablo(1 To 2, 1 To 1)
For Each Nm In ThisWorkbook.Names
If Nm.Name Like "Colonne*" Then
Tablo(1, UBound(Tablo, 2)) = Nm.Name
Tablo(2, UBound(Tablo, 2)) = Nm.RefersTo
ReDim Preserve Tablo(1 To 2, 1 To UBound(Tablo, 2) + 1)
End If
Next
If UBound(Tablo, 2) > 1 Then ReDim Preserve Tablo(1 To 2, 1 To UBound(Tablo, 2) - 1)
End Sub