Sub detailStats()
Dim comptage As Long, campaign As String, xrow
comptage = 5: campaign = Sheets("Suivi").Range("B2").Value
With ActiveWorkbook.Sheets("PivotTable").Range("A3:A" & Cells(Rows.Count, "A").End(xlUp).Row).EntireRow
For Each xrow In .Rows
If xrow.Cells(1, 1) Like campaign Then
comptage = comptage + 1
xrow.Resize(, Columns.Count - 1).Offset(, 1).Copy Destination:=Sheets("Suivi").Range("b" & comptage)
End If
Next xrow
End With
ActiveWorkbook.Sheets("Suivi").Activate
End Sub