Sub MacroRecap()
Dim ws As Worksheet, Rcip As Range, Plg As Range, derlig As Long, ltr$
For Each ws In Worksheets
If Not ws.Name Like "Récap" Then
With ws
.Activate
On Error Resume Next
Set Rcip = .Cells.Find(What:="CIP", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False)
derlig = .Cells(Application.Rows.Count, Rcip.Column).End(xlUp).Row
ltr = Split(Rcip.Offset(1).Address(1, 0), "$")(0)
Set Plg = Range(Rcip.Offset(1).Address & ":" & ltr & derlig)
Plg.Copy Sheets("Récap").Cells(Application.Rows.Count, 1).End(xlUp)(2)
End With
Set Rcip = Nothing
Set Plg = Nothing
End If
Next ws
End Sub