On Error Resume Next
' En cas d'erreur le code continu sur la ligne suivante et donc ignore l'erreur
LignFin = ComboBox1.List(ComboBox1.ListIndex + 1, 1)
If Err <> 0 Then LignFin = [COLOR="Red"]Sheets("Réparation")[/COLOR].Range("[COLOR="Blue"]B65536[/COLOR]").End([B][COLOR="Orange"]xlUp[/COLOR][/B]).[COLOR="Gray"][B]Row[/B][/COLOR] + 1
' Si la valeur contenu dans la variable Err est différente de 0
' Alors la variable LignFin prendra la valeur suivante :
' Le [COLOR="Gray"][B]numéro de la[/B][/COLOR] première [COLOR="Gray"][B]ligne[/B][/COLOR] pleine rencontré (en partant de [COLOR="Blue"]B65536[/COLOR] (de [COLOR="Red"]la feuille "réparation[/COLOR]"))
' et en se déplacant [COLOR="Orange"][B]vers le haut[/B][/COLOR] +1
On Error GoTo 0