Excel vba macro validation de donnée avec formule variable

Salut à tous
J'ai demandé de l'aide
à un membre, mais n'ayant pas de réponse pour le moment, je lance un appel général .
Dans un UserForm, je souhaite sélectionner une cellule afin de la désigner comme variable.
Cette variable s'insérera dans la formule de validation de donnée avec la fonction INDIRECT(). J'ai en effet préparer des noms de zones dans mon fichier se référents à des listes.
L'objectif final de la macro est de pouvoir copier et insérer un groupe de cellules, et de définir une liste déroulante une cellule ainsi copiée. Cette liste déroulante sera fonction d'une cellule désignée comme source, elle même dépendante... (imbrication de validation de donnée avec la fonction: INDIRECT(paramètre).
J'espère avoir été clair.
Voici le Userform que j'ai crée, peux-tu me dire pourquoi cela ne fonctionne pas? Peut-être un jeu d'écriture?...
Merci infiniment d'avance.

Private Sub CommandButton2_Click()

'sélection cellule pr plage
Dim plage As String

plage = UserForm2.RefEdit2.Value
If plage = "" Then
MsgBox "vous n'avez rien sélectionné, recommencez !"
Exit Sub
End If

' Insertion_compétence
Sheets("Fiche contrat type").Select
Range("A19:N20").Select
Selection.Copy
Sheets("Fiche contrat classe").Select
ActiveCell.Range("A1:B1").Select
Selection.Insert Shift:=xlDown
ActiveCell.Range("A1:B1").Select
Application.CutCopyMode = False

'déinition de la cellule validation
ActiveCell.Offset(0, 1).Range("A1:B1").Select





'définition de variable1 pr utilisation ds variable


Dim maVariable As String
maVariable1 = plage

'Validation donnée choix de la capacité source

With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=INDIRECT(" & maVariable1 & ")"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Donnée non valide"
.InputMessage = ""
.ErrorMessage = "! Donnée non valide !"
.ShowInput = True
.ShowError = True

End With
Set Cel = Nothing

'déchargement du Userform
Unload Me
End Sub


Private Sub CommandButton1_Click()

End Sub


Private Sub RefEdit2_BeforeDragOver(Cancel As Boolean, ByVal Data As MSForms.DataObject, ByVal x As stdole.OLE_XPOS_CONTAINER, ByVal y As stdole.OLE_YPOS_CONTAINER, ByVal DragState As MSForms.fmDragState, Effect As MSForms.fmDropEffect, ByVal Shift As Integer)

End Sub

Private Sub UserForm_Click()

End Sub