[SIZE=4]'If UCase(.Cells(RecordNumber, 11)) = "COM" Then Me.OPTComAlu = True Or Me.OPTValAlu = True And Me.OPTLitAlu = True
Me.OPTComAlu = UCase(.Cells(RecordNumber, 11)) = "COM"
Me.OPTValAlu = UCase(.Cells(RecordNumber, 11)) = "VAL"
Me.OPTLitAlu = UCase(.Cells(RecordNumber, 11)) = "LIT"
'If UCase(.Cells(RecordNumber, 12)) = "COM" Then Me.OptComAluDivers.Value = True Or Me.OptValAluDivers = True Or Me.OptLitAluDivers = True
Me.OptComAluDivers.Value = UCase(.Cells(RecordNumber, 12)) = "COM"
Me.OptValAluDivers = UCase(.Cells(RecordNumber, 12)) = "VAL"
Me.OptLitAluDivers = UCase(.Cells(RecordNumber, 12)) = "LIT"
'If UCase(.Cells(RecordNumber, 13)) = "COM" Then Me.OptComAcces.Value = True Or Me.OptValAcces = True Or Me.OptLitAcces = True
Me.OptComAcces.Value = UCase(.Cells(RecordNumber, 13)) = "COM"
Me.OptValAcces = UCase(.Cells(RecordNumber, 13)) = "VAL"
Me.OptLitAcces = UCase(.Cells(RecordNumber, 13)) = "LIT"
'If UCase(.Cells(RecordNumber, 14)) = "COM" Then Me.OptComAcier.Value = True Or Me.OptValAcier = True Or Me.OptLitAcier = True
Me.OptComAcier.Value = UCase(.Cells(RecordNumber, 14)) = "COM"
Me.OptValAcier = UCase(.Cells(RecordNumber, 14)) = "VAL"
Me.OptLitAcier = UCase(.Cells(RecordNumber, 14)) = "LIT"
'If UCase(.Cells(RecordNumber, 15)) = "COM" Then Me.OptComPlastique.Value = True Or Me.OptValPlastique = True Or Me.OptLitPlastique = True
Me.OptComPlastique.Value = UCase(.Cells(RecordNumber, 15)) = "COM"
Me.OptValPlastique = UCase(.Cells(RecordNumber, 15)) = "VAL"
Me.OptLitPlastique = UCase(.Cells(RecordNumber, 15)) = "LIT"
'If UCase(.Cells(RecordNumber, 16)) = "COM" Then Me.OptComBois.Value = True Or Me.OptValBois = True Or Me.OptLitBois = True
Me.OptComBois.Value = UCase(.Cells(RecordNumber, 16)) = "COM"
Me.OptValBois = UCase(.Cells(RecordNumber, 16)) = "VAL"
Me.OptLitBois = UCase(.Cells(RecordNumber, 16)) = "LIT"
' If UCase(.Cells(RecordNumber, 17)) = "COM" Then Me.OptComVitrage.Value = True Or Me.OptValVitrage = True Or Me.OptLitVitrage = True
Me.OptComVitrage.Value = UCase(.Cells(RecordNumber, 17)) = "COM"
Me.OptValVitrage = UCase(.Cells(RecordNumber, 17)) = "VAL"
Me.OptLitVitrage = UCase(.Cells(RecordNumber, 17)) = "LIT"
' If UCase(.Cells(RecordNumber, 18)) = "COM" Then Me.OptComTransport.Value = True Or Me.OptValTransport = True Or Me.OptLitTransport = True
Me.OptComTransport.Value = UCase(.Cells(RecordNumber, 18)) = "COM"
Me.OptValTransport = UCase(.Cells(RecordNumber, 18)) = "VAL"
Me.OptLitTransport = UCase(.Cells(RecordNumber, 18)) = "LIT"
' If UCase(.Cells(RecordNumber, 19)) = "COM" Then Me.OptComElectronique.Value = True Or Me.OptValElectronique = True Or Me.OptLitElectronique = True
Me.OptComElectronique.Value = UCase(.Cells(RecordNumber, 19)) = "COM"
Me.OptValElectronique = UCase(.Cells(RecordNumber, 19)) = "VAL"
Me.OptLitElectronique = UCase(.Cells(RecordNumber, 19)) = "LIT"[/SIZE]