[COLOR=green]'...[/COLOR]
Application.ScreenUpdating = False
Lig = Target.Row
If Target.Count > 1 Then Exit Sub
'déprotège toute les feuilles
Sheets("Ordonnancier").Unprotect
Sheets("Feuille Type").Unprotect
Sheets("Dotation").Unprotect
Sheets("Nominatif").Unprotect
If Target.Value = "" Then GoTo suite
[COLOR=green]'...[/COLOR]