Sub test()
Dim FD As Worksheet
Set FD = Worksheets(ActiveSheet.Name)
Dim TbBis(1 To 2) As Variant
TbBis(1) = FD.Range("A10:B" & FD.Range("B1048576").End(xlUp).Row).Value
Set TbBis(2) = FD.Range("A10:B" & FD.Range("B1048576").End(xlUp).Row)
' Suppression de la surbrillance
TbBis(2).Interior.Pattern = xlNone
For i = LBound(TbBis(1), 1) To UBound(TbBis(1), 1)
If Len(TbBis(1)(i, 1)) <> 14 Then
TbBis(2)(i, 1).Interior.Color = 65535
End If
If Len(TbBis(1)(i, 2)) <> 15 Then
TbBis(2)(i, 2).Interior.Color = 65535
End If
Next i
' Libére la mémoire
Erase TbBis
Set FD = Nothing
Calc1 = Empty: Calc2 = Empty
End Sub