Private Sub Worksheet_Change(ByVal Target As Range)
if target.column>1 then
If Target.Offset(0, -1) = "" Then
Application.enableevents = false
Target = ""
application.enableevents = true
MsgBox "VOUS AVEZ SAUTÉE UNE COLONNE VIDE, UTILISER LA COLONNE ", vbExclamation, "SÉLECTION CELLULE"
Exit Sub
End If
end if
end sub