Sub myviolet()
Dim t(50, 2)
Dim nl(50) 'nombre de modules maxi 50
Dim kit As Boolean
bas = [D65000].End(3).Row 'derniere ligne col D
Range("CN33:CN" & bas) = "" 'efface
''''''t(1, 1) = 33'LIGNE A SUPPRIMER(doublon)sur précédente macro
For k = 33 To bas 'debut à 33
i = i + 1
t(i, 1) = k
n = Application.Range("CN" & 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.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 Then tx = tx & "," & Cells(lig, 4)
Next
If tx <> "" Then Cells(t(k, 1), "CN") = Cells(t(k, 1), "CN") & " " & Cells(1, col) & tx
End If
End If
Next
Next
End Sub