Private Sub CommandButton1_Click()
Dim PR As Worksheet, AV As Worksheet, iAV&, i&
Set PR = Sheets("Liste diffusion")
Set AV = Sheets("Liste Adoptés")
iAV = AV.Range("A" & AV.Rows.Count).End(xlUp).Row + 1
With PR.[A1].CurrentRegion.Resize(, 14)
'---copie les lignes et leurs hauteurs---
For i = 2 To .Rows.Count
If .Cells(i, 13) = "Adopté" Then
.Rows(i).Copy AV.Cells(iAV, 1)
AV.Rows(iAV).RowHeight = .Rows(i).RowHeight
iAV = iAV + 1
End If
Next
'---copie les largeurs des colonnes---
For i = 1 To 14
AV.Columns(i).ColumnWidth = .Columns(i).ColumnWidth
Next
End With
AV.Activate 'facultatif
End Sub