' pour les ligne 12 à 2012
If target.Count > 1 Then Exit Sub 'si la modification à lieu sur plusieurs cellules, on quitte la macro.
If target.Row > 11 And target.Row < 2013 Then
Select Case target.Column
Case 1
[COLOR=Blue][B]target.Offset(0, 1).Select[/B][/COLOR]
Case 2
[B][COLOR=SeaGreen] If target.Offset(, -1).Value = Empty Then
Application.EnableEvents = False
MsgBox " Veuillez renseigner la cellule de gauche !"
target.Value = Empty
target.Offset(, -1).Select
Application.EnableEvents = True
End If[/COLOR][/B]
Case 3
blablabla
Case 4, 5, 6 'si le code est le même pour les colonnes 4 à 6 par exemples
blablabla
End Select
End If