Précocher listbox sous conditions

Bonjour à tous !

Je vous expose mon problème

Avec cette partie de code je souhaite précocher 3 listbox si un item contient "!" ET si il y a au moins une valeur remplie dans 3 colonnes H, I et J respectivement aux listbox. En revanche le code me les précoche toujours quoi qu'il se passe, quand je teste le code avec un msgbox il m'inidque que la cellule H23 et remplie alors que non ...

Merci pour vos lumières !

derl3 = Worksheets("courrier").Cells(Rows.Count, 2).End(xlUp).Row
aut_conv = Worksheets("courrier").Range("H1:J1" & derl3)

For j = 23 To derl3
If aut_conv(j, 1) <> "" Then
For i = 0 To Me.lb_moe_mail.ListCount - 1
    If Me.lb_moe_mail.List(i) Like "*!*" Then
    Me.lb_moe_mail.Selected(i) = True
    End If
Next i
GoTo step_1
End If
Next

step_1: For j = 23 To derl3
If aut_conv(j, 2) <> "" Then
For i = 0 To Me.lb_moa_mail.ListCount - 1
    If Me.lb_moa_mail.List(i) Like "*!*" Then
    Me.lb_moa_mail.Selected(i) = True
    End If
Next i
GoTo step_2
End If
Next

step_2: For j = 23 To derl3
If aut_conv(j, 3) <> "" Then
For i = 0 To Me.lb_ona_mail.ListCount - 1
If Me.lb_ona_mail.List(i) Like "*!*" Then
Me.lb_ona_mail.Selected(i) = True
End If
Next i
Exit Sub
End If
Next

Bonsoir le forum

code avec un msgbox il m'inidque que la cellule H23 et remplie alors que non

si tu nous mets le fichier on pourra modifier

a+

Papou