Probleme de conception

Bonjour Forum,

Je reviens vers vous pour un probleme de conception. A l'initialisation d'un USF, je charge les données d'une feuille dans plusieurs txtbox, j'ai autant de lignes dans mon usf que dans ma feuille. L'utilisateur a la possibilité de coché une chkbox correpondant a une ligne, si il y a le chek cela duplique la ligne en question.
Le but est d'actualiser mon USF avec les nouvelles données de la ligne dupliquée, mais avant ca j´ai le probleme que s' il y a plusieurs chekbox de coché je n'arrive pas a dupliquer la bonne ligne, cela fonctionne juste lorsque qu´une seule chkbox est coché.

Pour etre plus explicite voici mon code dans mon module de classe

With ChkBox
    For i = 2 To Nblignes
        If .Name Like "ChkC" & i Then
            If .Value = True Then
            StrRep = InputBox("Nombre de fraccionamiento?", "Caso de fracionamiento irregular")
                Cells(i, 1).EntireRow.Copy
                    For j = 1 To StrRep
                        Cells(Nblignes + j, 1).EntireRow.Select
                        ActiveCell.PasteSpecial (xlPasteValuesAndNumberFormats)
                    Next j
                Cells(i, 1).EntireRow.Delete
                Application.ScreenUpdating = False
             End If
        End If
    Next i
    End With

Le nom de ma chek box est relié au numero de ma ligne, car cré automatiquement lors de línitialisation de mon USF.

Set CollectChk = New Collection
For i = 2 To Nblignes
Set Obj = USFEt.Controls.Add("forms.checkbox.1")
    With Obj
    .Name = "ChkC" & i
    .Left = 29
    .Top = 22 * i + 4
    .Width = 22
    .Height = 16
    End With

    Set Cl = New Clase1
    Set Cl.ChkBox = Obj
    CollectChk.Add Cl
Next i

Mais lorsque je procede a un deuxieme tours de boucle le i indenté a ma chek box ne correspond plus au numero reel de ma ligne... car la ligne a été couper et coller n fois.

J´espere avoir été clair au possible.

Je ne sais pas si je mý prends de la bonne facon. Et je ne sais pas non plus comment procéder pour passer a l´étape suivante qui sera de réinitialiser mon USF avec les nouvelles données copier de ma feuille....

Merci dávance pour les indices voir meme plus une solution!