Private Sub CommandButton1_Click()
Dim C As Object, I&, X&, Tmp&
Set C = CreateObject("Scripting.Dictionary")
For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row
C(Len(Cells(I, 1))) = C(Len(Cells(I, 1))) + 1
If X < C(Len(Cells(I, 1))) Then X = Len(Cells(I, 1))
Next I
For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Len(Cells(I, 1)) <> X Then Tmp = Tmp + 1
If Len(Cells(I, 1)) <> X Then Cells(I, 1).Interior.ColorIndex = 35 'Pour voir
Next I
Cells(3, 4) = X
Cells(4, 4).Value = Tmp
End Sub