Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("C5:C" & Range("C65000").End(xlUp).Row)) Is Nothing Then
If Target.Offset(, -1) = "" Then
MsgBox "Commencer par compléter le Type !", , "Attention"
Application.EnableEvents = False
Target = ""
Target.Offset(, -1).Select
Application.EnableEvents = True
End If
End If
End Sub