Private Sub CommandButtonSupprimer_Click()
If OptionButton1 = True Then
MsgBox "Voulez-vous vraiment supprimer ce poste!", vbYesNo + vbExclamation, "Avertissement"
If [B]vbYesNo = no[/B] Then
Exit Sub
Else
If ComboBoxPoste.ListIndex = -1 Then Exit Sub
NomLBindex = UserFormMAJPoste.ComboBoxPoste.ListIndex + 5 ' ligne de reference
With Sheets("ouvrage")
.Range("B" & NomLBindex & ":da" & NomLBindex).Delete
End With
End If
End If
End Sub