[degap05]

Merci Skoobi, cela fonctionne parfaitement.
Accessoirement, j'ai un code qui colore ma ligne au fur et à mesure de l'avancement de la saisie des données. Ce qui est curieux, lorsque je renseigne la cellule cible en colonne Z, c'est qu'une ligne sans données se colore de la dernière couleur (48 = gris) à la fin des derniers enregistrements ?
Quelle en serait la cause ?

Merci.

End If
If Target.Column = 8 Then
If Target.Value <> "" Then
Range(Cells(Lig, 1), Cells(Lig, 8)).Interior.ColorIndex = 43
Else
Range(Cells(Lig, 1), Cells(Lig, 8)).Interior.ColorIndex = xlNone
End If
End If
If Target.Column = 18 Then
If Target.Value <> "" Then
Range(Cells(Lig, 1), Cells(Lig, 18)).Interior.ColorIndex = 44
Else
Range(Cells(Lig, 1), Cells(Lig, 18)).Interior.ColorIndex = xlNone
End If
End If
If Target.Column = 20 Then
If Target.Value <> "" Then
Range(Cells(Lig, 1), Cells(Lig, 25)).Interior.ColorIndex = 48
Else
Range(Cells(Lig, 1), Cells(Lig, 25)).Interior.ColorIndex = xlNone
End If
End If