Private Sub CbCadre_Change()
If CbCadre.Value = 'intervention' Then
CbCadre.ForeColor = &H80000008
cbPlongeur.ForeColor = &H80000008
txtDate.ForeColor = &H80000008
cbPosition.ForeColor = &H80000008
cblieux.ForeColor = &H80000008
txtImmersion.ForeColor = &H80000008
txtSortie.ForeColor = &H80000008
txtTemps.ForeColor = &H80000008
cbProfondeur.ForeColor = &H80000008
End If
End Sub