Microsoft 365 Transfert ligne choisir l'onglet

[Scorpio]

Bonjour à tous,
J'ai ce classeur pour transférer chaque ligne individuellement au choix dans un onglet.
Mais, j'ai dans mes données, 1 ou plusieurs liste déroulante, (a venir), et ces listes déroulantes sont aussi transmise.
J'aimerais juste transmettre que les valeurs et pas les listes déroulante.
Voilà,
Merci d'avance à celle ou celui qui pourrais me donner un petit coup de main.

A++++

 

[Robert]

Bonjour Scorpio, bonjour le forum,

Peut-être comme ça :

Private Sub Transferer_Click()
Dim Coche As String
Dim X As Control

If Me.ListBox1.ListIndex = -1 Then
    MsgBox "Sélectionnez la ligne à transférer !"
    Me.ListBox1.SetFocus
    Exit Sub
End If
For Each X In Source.Controls
    If X.Value Then Coche = X.Caption
Next
If Coche <> "" Then
    With ActiveSheet.Range("A2:G2").Offset(ListBox1.ListIndex, 0)     'Modifier le nombre de colonne
        .Copy
        Sheets(Coche).Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
        .Delete Shift:=xlUp
    End With
    UserForm_Initialize
Else
    MsgBox "Cochez une destination"
    Me.Source.SetFocus
End If
End Sub

 

[Scorpio]

Bonjour Robert,
Merci beaucoup, super, ce que je voulais. Merci
A++++