Public Tableau() 'mémorise la variable
Sub USF()
UserForm1.Show 0 'non modal (pour pouvoir exécuter les macros)
End Sub
Sub CreerTableau()
Dim c As Object, n%
Erase Tableau
For Each c In UserForm1.Controls 'adapter le nom de l'UserForm
If TypeName(c) = "CheckBox" Then
n = n + 1
ReDim Preserve Tableau(1 To 2, 1 To n) 'tableau de 2 lignes et n colonnes
Tableau(1, n) = c.Name
Tableau(2, n) = c.Value
End If
Next
End Sub
Sub Test()
Rows(1).ClearContents 'RAZ
On Error Resume Next
[A1].Resize(2, UBound(Tableau, 2)) = Tableau
End Sub