'### Constante à adapter ###
Public Const MA_FEUILLE As String = "BDD"
Public TBtexte() As String
'_____________________________
Sub GetBDD(Optional dummy As Byte)
Dim var
Dim R As Range
Dim S As Worksheet
Dim i&
Set S = Sheets(MA_FEUILLE)
S.Activate
Set R = S.[a1].CurrentRegion
var = R
ReDim TBtexte(1 To UBound(var, 1))
For i& = 1 To UBound(var, 1)
TBtexte(i&) = var(i&, 1)
Next i&
End Sub
'_____________________________
Sub Launch()
UserForm1.Show
End Sub