Copier Ligne entière sauf les valeurs d'une colonne

Sub detailStats()
comptage = 5

campaign = Sheets("Suivi").Range("B2").Value

'Details consolidés par Insertion Order

ActiveWorkbook.Sheets("PivotTable").Activate
For Each ioName In Sheets("PivotTable").Range("A3:A" & Cells(Rows.Count, "A").End(xlUp).Row)
If ioName Like campaign Then
comptage = comptage + 1
Sheets("PivotTable").Rows(ioName.Offset(, 1).Row).Copy Destination:=Sheets("Suivi").Range("A" & comptage)
End If
Next ioName
ActiveWorkbook.Sheets("Suivi").Activate
Range("A6").ClearContents
End Sub

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