Sub RDV()
Dim source As Worksheet, dest As Worksheet
Set source = Sheets("Grille_de_Dispensation")
Set dest = Sheets("RDV")
source.[A1].CurrentRegion.AdvancedFilter xlFilterCopy, dest.[H1:H2], dest.[A3:F3]
With dest.[A3:F3].CurrentRegion
.Offset(.Rows.Count).Resize(Rows.Count - .Rows.Count + 1 - .Row).Delete xlUp 'RAZ en dessous pour les bordures
End With
With dest.UsedRange: End With 'actualise les barres de défilement
End Sub