Optimisation d'un code VBA

Bonjour,
j'aimerais optimiser le code suivant :

Sub tableaucroisé_en_liste()
'
' tableaucroisé_en_liste Macro
' transforme un tableau croisé en une liste de données
'

'

'i = numéro de ligne où commence la liste de données - la ligne 1 étant l'en-tête.
i = 2

'B = nom des onglets à copier.
For Each B In Array("02", "03", "41", "Sema", "NBM", "Malto")

'A = une cellule dans les onglets à copier.
'RANGE A MODIFIER.
    
    For Each A In Worksheets(B).Range("L25:O33")
 
        Worksheets("data").Cells(i, 1).Value = Worksheets(B).Cells(5, A.Column)
        'Copie la colonne L (qui s'incrémente à chaque boucle), ligne 5 dans l'onglet B vers colonne 1, ligne i dans l'onglet data.
        
        Worksheets("data").Cells(i, 2).Value = Worksheets(B).Cells(A.Row, 3)
        'Copie la colonne C, ligne 25 (qui s'incrémente à chaque boucle) dans l'onglet B vers colonne 2, ligne i dans l'onglet data.
        
        Worksheets("data").Cells(i, 3).Value = Worksheets(B).Cells(A.Row, A.Column)
        
        Worksheets("data").Cells(i, 4).Value = B
        
        i = i + 1
 
    Next A
Next B
End Sub

J'aimerais saisir dans des boîtes de dialogue :
- les onglets à copier ("02", "03", etc).
- le champ (L25:O33).
- le numéro de ligne à copier (5 dans le code Worksheets(B).Cells(5, A.Column)).
- le numéro de colonne à copier (3 dans le code Worksheets(B).Cells(A.Row, 3)).

Merci d'avance.

Si vous trouvez d'autres optimisations, je suis prenant.