Sub regroupe()
'regroupe les N°de licences des <> feuille dans la Col C de la première feuille
Dim k As Integer, i As Integer
Dim nom_feuille As String
'compte le nb de feuille dans le classeur
k = Worksheets.Count
'supprimer les cellules de la colonne C dans la feuille bilan
Sheets(1).Select
Range("C2", Range("C2").End(xlDown)).Select
Selection.ClearContents
'pour chaque feuille (sauf la 1ère) on cherche le texte "N° le licence
'et on copie le texte dans la col C de la première feuille
For i = 2 To k
Sheets(i).Activate
Cells.Find(what:="N° de licencié").Activate
ActiveCell.Offset(1, 0).Select
Range(Selection, Selection.End(xlDown)).Copy Sheets(1).Range("C1").Offset(Sheets(1).Range("C65536").End(xlUp).Row, 0)
Next i
Sheets(1).Select
'suppression des doublons dans la colonne C
Sheets(1).Range("C1", Range("C1").End(xlDown)).RemoveDuplicates Columns:=1, Header:=xlYes
'on efface la mise en forme de la colonne C
Sheets(1).Range("C2", Range("C2").End(xlDown)).ClearFormats
End Sub