Tri numérique puis alphabétique après un couper-coller

Tous les tableaux sont en tableaux.

Je n'ai plus d'erreur, mais rien ne se passe lorsque je met Oui ou Non dans la colonne R...

Je n'avais même pas pensé à masquer les colonnes indésirées ! On se complique la vie pour pas grand chose parfois :p

Ferme le fichier et rouvre le

Je pense que c'est à cause du blocage de la macro

Cela fonctionne parfaitement !!!

Merci beaucoup !!

Ultime question : Est-ce que si j'ai le même principe avec la colonne S et un onglet DG, je peux écrire :

    ElseIf Not Intersect(Target, lo1.ListColumns("DG").DataBodyRange) Is Nothing Then

        If Intersect(Target, lo1.ListColumns("DG").DataBodyRange).Count > 1 Then
            Application.Undo
            MsgBox "Une seule modification à la fois ... sinon c'est le bazar !"
        Else
            If Target.Value = "Oui" Then
                copie sh, Target.Row, "DG"
            ElseIf Target.Value = "Non" Then
                supprime sh, Target.Row, "DG"
            End If
        End If

Edit : cela fonctionne. En revanche, le message box reste le même :p Une idée pour l'adapter ? Un message box pour la condition UO et un message box pour la condition DG ?

MsgBox "suppression dans " & cible & " ok !"

idem pour copie

MsgBox "copie dans " & cible & " ok !"

Merci Steelson !!

Sujet réglé !