Private Sub Worksheet_Change(ByVal R As Range)
If R.Column = 12 Then
If Application.CountA(Cells(R.Row, 1).Resize(, 12)) = 12 Then
Cells(R.Row, 1).Resize(, 12).Interior.ColorIndex = 4
Cells(R.Row + 1, 1).Select
Else
MsgBox "Saisie incompléte!", vbCritical, "ERREUR!"
Cells(R.Row, 1).Resize(, 12).Select
End If
End If
End Sub