Dim Plage As Range
Dim Cell As Range
Dim Un As New Collection
Dim Tableau() As Integer
Dim Nombre As Integer
Set Plage = Sheets("feuil2").Crange("A2:A1048521")
On Error Resume Next
For Each Cell In Plage
Un.Add.Cell , CDate(Cell)
If Err.Number <> 0 Then
Nombre = Nombre + 1
ReDim Preserve Tableau(1 To Nombre)
Tableau(Nombre) = Cell.Row
Err.Clear
End If
Next Cell
On Error GoTo 0
If Nombre = 0 Then
Exit Sub
End If
For nomnbre = UBound(Tableau) To LBound(Tableau) Step -1
Sheets("Feuil2").Cells(Tableau(Nombre)).Merge
Next Nombre