Sub RecupNom()
Dim tab_nom() As Variant
Dim int_ligne As Integer
Dim i As Integer
int_ligne = 4
ReDim tab_nom(0)
tab_nom(0) = ""
i = 0
Sheets("Mai 2016").Select
While Cells(int_ligne, 1) <> "EFFECTIF TOTAL"
If Cells(int_ligne, 1) <> "" And Cells(int_ligne, 1) <> "RESIDENCE" And Not Cells(int_ligne, 1) Like "*EQUIPE*" Then
'MsgBox i
If i = 0 Then
tab_nom(0) = Cells(int_ligne, 1)
i = i + 1
Else
ReDim Preserve tab_nom(i)
tab_nom(i) = Cells(int_ligne, 1)
i = i + 1
End If
End If
int_ligne = int_ligne + 1
Wend
int_ligne = 37
Sheets("Feuil2").Select
For i = 0 To UBound(tab_nom())
Cells(int_ligne, 1) = tab_nom(i)
Range(Cells(int_ligne, 1), Cells(int_ligne + 2, 1)).Select
Selection.Merge
int_ligne = int_ligne + 3
Next i
End Sub