XL 2010 Regrouper plusieurs onglet

[Scorpio]

Salut à tous et joyeuse fête de Pâques,
J'aurais juste un petit problème avec un code VBA, et comme je ne suis pas un champion, j'aurais bien aimé avoir un petit coup de main, en vous remerciant d'avance et en notant bien que rien n'est urgent. J'ai trouvé ce code sur le net, mais je n'arrive pas à le modifier, voilà
Merci d'avance et a+++++

 

[CHALET53]

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

Essaie ce code
a+

 

[Scorpio]

Salut Chalet53
Ho, ho, super, merci beaucoup, ça fonctionne, se qui compte, pour un Débutant comme moi en VBA.
Merci d'avoir passé quelques minutes en ce jour de Pâques pour mon soucis.
A+++, et bonne fin de journée de Pâques