aide pronostic

Sub ColonnesIdentiques()

 ReDim t(Cells(1, "P").Column)
 
 For col = Cells(1, "C").Column To Cells(1, "P").Column
     
  For j = 2 To 14
   
  Cells(j, col).Select
   t(col) = t(col) & Cells(j, col) & " "
  Next
   
 Next
  
 For i = Cells(1, "C").Column To Cells(1, "P").Column - 1
  Set r = Nothing
  
  For j = i + 1 To Cells(1, "P").Column
      
   If t(i) = t(j) Then
   
    If r Is Nothing Then
     Set r = Union(Columns(i), Columns(j))
    Else
     Set r = Union(r, Columns(i), Columns(j))
    End If
   
   End If
  Next
  
   If Not r Is Nothing Then
    r.Select
    MsgBox r.Address
   End If
 Next
 
End Sub

=SI(SOMMEPROD(--(PRODUITMAT(TRANSPOSE(LIGNE($C$2:$C$14)/LIGNE($C$2:$C$14));--(D2:D14=$C$2:C14))=NBVAL(D2:D14)))>0; EQUIV(VRAI;PRODUITMAT(TRANSPOSE(LIGNE($C$2:$C$14)/LIGNE($C$2:$C$14));--(D2:D14=$C$2:C14))=NBVAL(D2:D14);0);"")