If TextBox1 = "" Then
If TextBox2 = "" Then
MsgBox "Vous devez saisir une valeur dans AISM ou dans EMAT8.", 16
Exit Sub
Else
tb = TextBox2
col = 1
End If
Else
If TextBox2 = "" Then
tb = TextBox1
col = 4
Else
MsgBox "Vous ne pouvez pas rechercher à la fois une valeur de AISM et une autre de EMAT8.", 16
Exit Sub
End If
End If