Besoin d'aide pour une formule je l'espere simple ;)

Sub Macro1()
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
Dim x As Long 'déclare la variable x (incrément)
dl = Cells(Application.Rows.Count, 2).End(xlUp) 'définit la dernière ligne de la colonne B
For x = 1 To dl 'boucle de la première à la dernière ligne
    If Len(Cells(x, 2)) < 10 Then Rows(x).Interior.ColorIndex = 3 'si le nombre de caractères de la cellule en colonne B est inférieur à 10, colore la ligne de rouge
Next x 'prochaine ligne de la boucle
End Sub

Sub Macro2()
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
Dim x As Long 'déclare la variable x (incrément)
dl = Cells(Application.Rows.Count, 2).End(xlUp) 'définit la dernière ligne de la colonne B
For x = dl To 1 Step -1 'boucle inversée de la dernière à la première ligne
    If Cells(x, 1).Interior.ColorIndex = 3 Then Rows(x).Delete shitf:=xlShiftUp 'si la ligne est rouge, supprime la ligne
Next x 'prochaine ligne de la boucle
End Sub

Sub Macro1()
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
Dim x As Long 'déclare la variable x (incrément)
dl = Cells(Application.Rows.Count, 2).End(xlUp) 'définit la dernière ligne de la colonne B
For x = dl To 1 Step -1 'boucle inversée de la dernière à la première ligne
    If Len(Cells(x, 2)) < 10 Then Rows(x).Delete shitf:=xlShiftUp 'si le nombre de caractères de la cellule en colonne B est inférieur à 10, supprime la ligne
Next x 'prochaine ligne de la boucle
End Sub