If CBnom.Value = "" Then
MsgBox "REMPLIR TOUS LES CHAMPS SVP !", vbExclamation
Exit Sub
End If
If TBdecelepar.Value = "" Then
MsgBox "REMPLIR TOUS LES CHAMPS SVP !", vbExclamation
Exit Sub
End If
If TBodf.Value = "" Then
MsgBox "REMPLIR TOUS LES CHAMPS SVP !", vbExclamation
Exit Sub
End If
If TBdesignation.Value = "" Then
MsgBox "REMPLIR TOUS LES CHAMPS SVP !", vbExclamation
Exit Sub
End If
If CBligne.Value = "" Then
MsgBox "REMPLIR TOUS LES CHAMPS SVP !", vbExclamation
Exit Sub
End If
If CBnaturedudefaut.Value = "" Then
MsgBox "REMPLIR TOUS LES CHAMPS SVP !", vbExclamation
Exit Sub
End If
If TBpreciser.Value = "" Then
MsgBox "REMPLIR TOUS LES CHAMPS SVP !", vbExclamation
Exit Sub
End If