J'ai externalisé ta ListeComplete...
Dim ListeComplete() As String
Sub Comparaison_Liste()
Dim ListeNouvelle() As String, LstCompar(), nbcol%, i%, j%, k%
ComposeListeComplète
With Worksheets("Feuil1")
nbcol = .Cells(1, .Columns.Count).End(xlToLeft).Column
ReDim ListeNouvelle(1 To nbcol)
For i = 1 To nbcol
ListeNouvelle(i) = .Cells(1, i)
Next i
End With
ReDim LstCompar(1, nbcol)
For i = 1 To nbcol
For j = 1 To UBound(ListeComplete)
If ListeComplete(j) = ListeNouvelle(i) Then
ListeComplete(j) = "": Exit For
End If
Next j
If j > UBound(ListeComplete) Then
k = k + 1: LstCompar(0, k) = ListeNouvelle(i)
End If
Next i
j = 0
For i = 1 To UBound(ListeComplete)
If ListeComplete(i) <> "" Then
j = j + 1: LstCompar(1, j) = ListeComplete(i)
End If
Next i
k = IIf(k > j, k, j)
ReDim Preserve LstCompar(1, k)
LstCompar(0, 0) = "Manquants L.Compl."
LstCompar(1, 0) = "En plus L. Compl."
Erase ListeComplete
With Worksheets("Feuil2")
.Range("A1").CurrentRegion.ClearContents
With .Range("A1").Resize(k + 1, 2)
.Value = WorksheetFunction.Transpose(LstCompar)
.Rows(1).Font.Italic = True
.Columns.AutoFit
End With
.Activate
End With
End Sub
Sub ComposeListeComplète()
ReDim ListeComplete(1 To 230)
...
Cordialement.