XL 2010 Regrouper plusieurs onglet

Sub recap()
rep = InputBox("Indiquer 1 nom !", "Saisir un nom de Société !!!")
If rep = "" Then Exit Sub
'on efface anciens données
Feuil1.[A2:P30].ClearContents
ligne = 2
'boucle du 2eme à l'avant dernier onglet
For onglet = 2 To Sheets.Count - 1

With Sheets(onglet)

nc = .[IV2].End(1).Column 'nombre colonne
bas = .[A30].End(3).Row 'nb lignes
For lig = 2 To bas
If .Cells(lig, 1) = rep Then
Feuil1.Cells(ligne, 1) = .Cells(lig, 1)

Feuil1.Cells(ligne, 2) = .Cells(lig, 2)
Feuil1.Cells(ligne, 3) = .Cells(lig, 4)
Feuil1.Cells(ligne, 4) = .Cells(lig, 13)

ligne = ligne + 1
End If
Next
End With
Next
End Sub