DerLigne = Cells(Rows.Count, 1).End(xlUp).Row
If (Range("C" & DerLigne).Value = "" And Range("D" & DerLigne).Value = "" And Range("E" & DerLigne).Value = "" _
And Range("F" & DerLigne).Value = "" And Range("G" & DerLigne).Value = "" And Range("H" & DerLigne).Value = "" _
And Range("I" & DerLigne).Value = "" And Range("J" & DerLigne).Value = "" And Range("K" & DerLigne).Value = "" _
And Range("L" & DerLigne).Value = "") Then
Range("A" & DerLigne).Value = ""
Range("B" & DerLigne).Value = ""
End If