Sub myviolet()
Dim t(50, 2)
Dim nl(50)
Dim kit As Boolean
bas = [D65000].End(3).Row
Range("CM33:CM" & bas) = ""
For k = 33 To bas
i = i + 1
t(i, 1) = k
n = Application.Range("CM" & k).MergeArea.Rows.Count
k = k + n - 1
t(i, 2) = k
nl(i) = n
Next
'''''''''''''''''''''''''on test col 5 à 84 soit E à CF
For col = 5 To 84
For k = 1 To i
tx = ""
If nl(k) > 1 Then
If Application.CountA(Range(Cells(t(k, 1), col), Cells(t(k, 2), col))) > 0 Then
'If Application.CountIf(Range(Cells(t(k, 1), col), Cells(t(k, 2), col)), 2) > 0 Or _
Application.CountIf(Range(Cells(t(k, 1), col), Cells(t(k, 2), col)), 3) > 0 Then
For lig = t(k, 1) To t(k, 2)
If Cells(lig, col) = "" Or Left(Cells(lig, col), 1) = 1 Or Left(Cells(lig, col), 1) = 0 Then tx = tx & "," & Cells(lig, 4)
Next
If tx <> "" Then Cells(t(k, 1), "CM") = Cells(t(k, 1), "CM") & " " & Cells(1, col) & tx
End If
End If
Next
Next
End Sub