Bonjour

Je voudrais mettre le résultat des textbox dans plusieurs feuilles j'ai utilisé ce code ça marche pour une feuille mais comment je fais si je veux lcertains éléments d'autres feuilles ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 Private Sub CommandButton1_Click()
nouv = False
If société = "" Then Fiche_prestataire.Hide: Exit Sub
sauve
Fiche_prestataire.Hide
End Sub
 
 
Public Sub sauve()
If Fiche_prestataire.société = "" Then Exit Sub
With Prestatairebase
    .Cells(adh, 1) = CInt(Fiche_prestataire.NUM)
    .Cells(adh, 2) = Fiche_prestataire.Secteur
    .Cells(adh, 3) = Fiche_prestataire.NOM
    .Cells(adh, 4) = Fiche_prestataire.Prénom
    .Cells(adh, 5) = Fiche_prestataire.société
    .Cells(adh, 6) = Fiche_prestataire.immatriculation
    .Cells(adh, 7) = Fiche_prestataire.signature
    .Cells(adh, 8) = Fiche_prestataire.adresse
    .Cells(adh, 9) = Fiche_prestataire.cp
    .Cells(adh, 10) = Fiche_prestataire.ville
    .Cells(adh, 11) = Fiche_prestataire.téléphone
    .Cells(adh, 12) = Fiche_prestataire.portable
    .Cells(adh, 13) = Fiche_prestataire.fax
    .Cells(adh, 14) = Fiche_prestataire.email
    .Cells(adh, 15) = Fiche_prestataire.rc
    .Cells(adh, 16) = Fiche_prestataire.assureurrc
    .Cells(adh, 17) = Fiche_prestataire.dc
    .Cells(adh, 18) = Fiche_prestataire.assureurdc
 
End With
End Sub
Merci à tous ce qui m'apporteront une solution