Re,
A défaut de réaction, plage nommée en dynamique, cellule de choix nommée, et ajout d'une feuille...
Sub Extraire()
Dim nf As Worksheet
If [choixUt] = "" Then Exit Sub
Set nf = Worksheets.Add(after:=Worksheets(1))
[tablo].Cells(1, 1).Resize(, 6).Copy
With nf.Range("A1")
.PasteSpecial xlPasteAll
.PasteSpecial xlPasteColumnWidths
.Offset(1).Value = [choixUt]
End With
[tablo].AdvancedFilter xlFilterCopy, nf.Range("A1:F2"), nf.Range("A3:F3")
nf.Rows("1:2").Delete
End Sub
Cordialement,
Ah ! Salut ! On s'est croisé... J'ai eu un plantage sur le premier essai d'envoi...