Probleme Macro qui supprime quelque ligne

Bonjour à tous

J'ai petit probleme,

juste je clic sur le bouton "FILTRE" LES donneés CI DESSOUS

• LE TOTAL
• TVA
• TOTAL TTC

le fichier joint explique tout

Quelqu'un m'aider Merçi d'avance.

Bonjour

Pas sur mais je pense que la méthode du filtre avancé "nettoie" la zone de réception

Une nouvelle méthode pour filtrer

Sub Filtre()
Dim Nblg As Long

  Application.ScreenUpdating = False
  Range("A21:E31").ClearContents
  With Sheets("Service")
    If .AutoFilterMode = True Then .AutoFilterMode = False
    Nblg = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A1:F" & Nblg).AutoFilter field:=6, Criteria1:=Range("E14")
    If Application.Subtotal(103, .Columns("F")) > 1 Then
      .Range("A2:E" & Nblg).SpecialCells(xlCellTypeVisible).Copy Range("A21")
    End If
    If .AutoFilterMode = True Then .AutoFilterMode = False
  End With
End Sub

Banzai; pourrais tu nous détailler un peu la partie de macro, je n'ai pas tout compris. Merci

If Application.Subtotal(103, .Columns("F")) > 1 Then

.Range("A2:E" & Nblg).SpecialCells(xlCellTypeVisible).Copy Range("A21")

bonjour

C'est exactement ça !

tu est vraiment tres rapide dans tes réponses exactes,

Merci beaucoup pour votre aide .

Bonjour

@ psdi

If Application.Subtotal(103, .Columns("F")) > 1 Then

Compte les lignes visibles dans la colonne A, fait abstraction des lignes masquées

Même si toutes les lignes sont filtrées cette fonction retournera 1 (la ligne des entêtes) c'est pour cela que l'on veut au moins 2 lignes

Pour plus de renseignements regardes l'aide de la fonction SOUS.TOTAL()

.Range("A2:E" & Nblg).SpecialCells(xlCellTypeVisible).Copy Range("A21")

Copie les lignes visibles (suite au filtrage) de la page "Service" dans les lignes 21 et suivantes

Parfait j'ai effectivement tout compris avec le détail dans l'aide Excel de cette fonction.

Merci encore @Banzai64.

A+.

Par ailleurs, j'aime beaucoup le Jurançon, un Landais qui parle.