[lapix]

Bonjour,

Voilà comment je modifierai ta procedure :

Private Sub CommandButtonAjouter_Click()
Dim Tableau(1 To 3) As Worksheet
Dim x As Integer

Set Tableau(1) = Sheets("Entree")
Set Tableau(2) = Sheets("Sortie")
Set Tableau(3) = Sheets("Effet")

For x = 1 To UBound(Tableau)
Tableau(x).Range("C65536").End(xlUp).Offset(1, 0).Value = Me.TextBoxA
Tableau(x).Range("D65536").End(xlUp).Offset(1, 0).Value = Me.TextBoxB
Tableau(x).Range("E65536").End(xlUp).Offset(1, 0).Value = Me.TextBoxC
Tableau(x).Range("F65536").End(xlUp).Offset(1, 0).Value = Me.TextBoxD
Next x
Me.TextBoxA = ""
Me.TextBoxB = ""
Me.TextBoxC = ""
Me.TextBoxD = ""

End Sub

Je profite de l'occasion :

Si dans ton USF tu crees des controles, il fau utiliser les noms que tu leur a donné si tu veux que ca fonctionne. Dans ton USF tu as cree des listbox (4) que tu appelles Listbox1,Listbox2... et dans ton code tu fais reference a des textbox.