Private Sub Transfert_Click()
Dim W1 As Worksheet, W2 As Worksheet, Plage As Range
Set W1 = Worksheets("Modele") ' à adapter
Set W2 = Worksheets("Autre Feuille") ' à adapter
Set Plage = W1.Range("A1:L" & W1.Range("A" & Rows.Count).End(xlUp).Row)
Plage.SpecialCells(xlCellTypeVisible).Copy W2.Range("A" & W2.Range("A" & Rows.Count).End(xlUp).Row + 1)
End Sub