Sub verifSet()
If [I3] + [S3] = 0 Then Exit Sub
If [L3] + [P3] = 4 Then
If ([I3] + [S3]) Mod 5 = 0 And [I3] + [S3] >= 5 Then
MsgBox "Changement de coté", vbExclamation, "CHANGE"
Inverse = [I13]
[I13] = [S13]: [S13] = Inverse
Inverse = [I3]
[I3] = [S3]
[S3] = Inverse
Exit Sub
End If
End If
If [I3] > 10 And [S3] < [I3] - 1 Then
MsgBox "Changement de SET", vbExclamation, "Bravo " & [I13]
[L3] = [L3] + 1
ventiler
Exit Sub
End If
If [S3] > 10 And [I3] < [S3] - 1 Then
MsgBox "Changement de SET", vbExclamation, "Bravo " & [S13]
[P3] = [P3] + 1
ventiler
End If
End Sub