Feuil --> Sheets...

[Titou]

Feuil --> Sheets...

Bonjour,

sur une userform, j'utilise une combobox pour sélectionner une feuille xl dont le code est le suivant:
--------------------------
Dim c As String

c = ComboBox10.Value

Sheets(c).Select
--------------------------

ensuite j'utilise un bouton pour ajouter la valeur d'une combobox dans une feuille, avec la procédure ce que j'ajoute se place dans le tableau:
------
Dim j As Integer
j = 2


While feuil5.Range("A" & j) <> ""
If (feuil5.Range("A" & j)) = ComboBox3 Then
Call MsgBox("Une entreprise ou personne est déja dans la liste", vbCritical, "Erreur")
Exit Sub
End If
j = j + 1
Wend

feuil5.Activate
Range("A" & j) = ComboBox3

Range("A2").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Call MsgBox("Le nouveau client est bien ajouté dans la bibliothèque", vbOKOnly, "Création d'une nouvelle entrée")
'
Call UserForm_Initialize
-------------
cependant je souhaite pouvoir ajouter ceci en fonction de la feuille sélectionnée, et si je change feuil5 en sheets(c) cela ne fonctionne plus

donc la question est comment peut on faire pour changer une propriété feuil5 en sheets(c)


merci

titou